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I . INTRODUCTION 



A . BACKGROUND 

The huma,n interface to a computer program has always been 
very important and is the subject of countless books, 
studies and other documents. A good interface, one that is 
"user-friendly", has often been the major feature of a 
program, and its presence has often overcome the 
disadvantages of a mediocre, or in some cases, poor program. 
Additionally, what was a good or excellent interface in the 
past is now frequently archaic and is defined as poor or 
merely satisfactory. When terminology and devices such as 
graphics, color video, icons, windows, mouse input, voice 
recognition, light pens, touch screens, and intelligent 
terminals were unknown or considered exotic, typed text input 
predominated in input methodology for general use. 
Frequently, even when new interface technology became 
affordable, existing systems couldn't be adapted due to poor 
original program design or expense of conversion. 

A poor interface is usually obvious to the user, and with 
perseverance, will be overcome. If the harm caused was only 
user frustration, little would be gained by trying to improve 
an interface. Unfortunately, a poor interface, while perhaps 
being exactly what a computer needs to perform its functions 
correctly, causes a user to perform inefficiently. This is 
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particularly significant because increased user (human) 
efficiency is the primary goal of most computer programs. 

User inefficiencies, while not desirable, can be 
tolerated in many minor or simple applications. It's just 
not cost effective to spend large sums of money to create a 
sophisticated interface in those cases. But, if an interface 
is not user-friendly, or to be more precise, "user- 
efficient", the more complex subjects and applications will 
cause disproportionately greater user inefficiencies, making 
it worthwhile to find new ways to enhance the interface. 

B. APPLICATION 

The subject application of this thesis. Research 
Evaluation Systems Analysis (RESA) simulation, is a wargaming 
simulation utilized by the Naval Postgraduate School to do 
research on battle procedures and techniques, weapons use 
and wargame simulation itself. RESA operates on the Digital 
Equipment Corporation VAX 11 series minicomputer. User input 
(game commands) is typed text entry, often in response to 
program prompts at VT-100/102 "dumb" terminals. RAMTEK 
graphics terminals provide geo-graphic color displays. A 
typical user is a graduate student who has no prior knowledge 
of RESA, and, probably little, or no experience in any form 
of wargaming or computer simulation. Additionally, few have 
any significant experience in interfacing with mainframe 
computers or sophisticated mainframe programs. 
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Because of the limited time a typical team of users will 
actually be using RESA, efficiency in interfacing is 
extremely critical. Several factors militate against this 
desired efficiency. 

1 . Text Entry Requirement 

All input, no matter how simple or trivial, must be 
typed on a keyboard. Spelling must be exactly correct. 
Since user spelling and typing abilities vary widely, the 
progress of a simulation exercise is often dictated by the 
input speed of a lesser skilled team member. Spelling help 
is available on the input terminal, but frequently requires a 
diversion from the command input sequence. 

2 . Command Syntax Knowledge Needed 

While RESA commands are one word, and are usually 
descriptive of the action being directed, they must be 
entered in the correct context. Additionally, sequences of 
commands must frequently be used to accomplish certain 
actions, and the sequence must be exactly correct. These 
sequences do not always lend themselves to easy memorization, 
thus requiring written user guides, or constant diversions 
from the command input sequence to get limited on-line help. 

3 . Separate Terminals For Different Functions 

Currently, the users of RESA require a minimum of 

three separate terminals to conduct the simulation. One 
terminal is for user control of the game which provides for 
command input and computer response. Another terminal is 
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necessary for display of the various status boards which give 
current game and unit (ships, planes, etc) data. A third 
terminal is used for display of color graphics which provide 
a birds-eye view of the current scenario. If a user wants to 
be informed about a facet of the simulation or enter a 
command, he must physically go to the appropriate terminal 
and interrupt the user at that terminal to conduct the 
desired activity. 

From examination of the above factors, it is evident that 
users spend a considerable amount of time on the wargame 
input process , time that should be spent on the simulation 
strategy. It is to improve this interface, thereby 
increasing user efficiency, that enhanced input methodology 
is constantly being studied. 
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II. SYSTEM REQUIREMENTS 



A . HARDWARE 

In selecting the hardware to prove the concept of a 
visual interface as a more efficient method to control RESA, 
several criterion were considered critical to success of the 
Proof of Concept. 

1 . Visual Interface Capability 

The system selected would have to be capable of 
iconographies, menus, and other graphics displays. Input 
devices such as the mouse, trackball, joystick, and touch 
tablet, as well as the standard keyboard, must be supported. 
The implication, but not absolute requirement, of this 
required capability is that the system must support "event- 
driven" programming. "Event-driven" is the term used to 
describe the computer's (both hardware and software) method 
of handling other than typed text input. It is most often 
used in reference to mouse/menu capabilities, as implemented 
on the ATARI ST and Macintosh computers . 

2 . Advanced Technology 

While some older systems are able to do much of what 
is described in A.l. above, the visual interface is done by 
"brute force" and is frequently stretching the limits of 
that system's capability. State-of-the-art technology means 
that the system has been designed, and therefore optimized. 
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for the display requirements stated above. An advanced 
technology system would also provide for expansion more 
easily than a system already dated. 

3 . Memory 

Graphics require large amounts of memory and high 
machine speed to produce good displays. A minimum of one 
megabyte of memory would ensure that, for this application, 
memory limitations were not a factor. Future system 
expansion would also be facilitated. 

4 . Color Display 

For screen displays that are mostly text, color would 
not be necessary, but would greatly enhance the interface. 
To allow creation of 100% graphic displays, such as a 
geographic battle group display, color would be necessary. 

5 . Cost 

Finding systems with the above attributes isn't 
particularly difficult; the issue is one of money. The 
system selected must be inexpensive enough to replace the 
existing "dumb" terminals at a reasonable cost. Studies to 
evaluate system cost versus user efficiency are not part of 
this document. Relative system cost is the selection 
criteria used here. 

B . SOFTWARE 

The software criteria, while much less critical than the 
hardware criteria, must still meet certain standards to 
enable this Proof of Concept to be successful. 
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1 . Access To Hardware Potential 

Software must be capable of using all hardware 
capabilities. Emphasis will be on graphics and color, not 
numeric calculations. 

2 . Ease Of Use 

Many current languages are capable enough to do 
almost anything asked of them, enough time and skilled 
programmers are available. For this Proof of Concept, time 
is limited, and professional programmers will not be 
available . 

3 . Speed 

Even if hardware has been selected to maximize 
graphic displays, the software must execute quickly to fully 
use that capability. 

4 . Cost 

The software must be chosen using criteria that 
provide the above software capabilities as inexpensively as 
possible . 

C. THE DECISION 

The ST series of computers by the ATARI Corporation was 
chosen to meet the above hardware needs. Various versions 
are available in 500Kb to 4Mb versions, use Motorola's 68000 
chip (16-bit) technology, use Digital Research's GEM icon / 
menu / mouse operating interface, have high resolution color 
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graphics, are readily available across the U.S., and are the 
least expensive systems, by far , that meet the stated 
criteria . 

The software chosen was GFA BASIC, an inexpensive BASIC 
very similar to TURBO-BASIC in the MS-DOS world. It is very 
easy to use, accesses all machine capabilities, and when 
compiled, is faster than PASCAL, and rivals the "C” language 
in speed of execution. 
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III. THE CONCEPT 



A. THE PROBLEM 

Interaction with the RESA simulation using the current 
methodology is quite inefficient. Commands, or sequences of 
commands called orders, are typed in using a keyboard at a 
dedicated "dumb” input terminal. For most typical users, 
this means frequent time-consuming interruptions to obtain 
absolutely correct commands, call signs, weapons names, 
flight and track data, etc., either from written user guides, 
or from a second terminal. In addition to simple spelling 
mistakes, syntax errors are frequently made when forming 
orders . 

In order to keep a using team abreast of the scenario, a 
second (dumb) terminal must be configured as a status board 
terminal, is not available as an input terminal, and requires 
an additional player. 

A third position must be used if a non-textual view of 
the situation is desired. Two Ramtek color graphics monitors 
provide Geotactical Displays which give the user a graphical 
representation of the RESA simulation from an overhead 
perspective, much like a radar PPI display. Unfortunately, 
the Geotactical Display is not controlled at the color 
monitor itself, but at a physically separate (text) input 
terminal. Only one representation at a time is normally 
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available to each of the four user teams. 



These four 



graphics processes make a substantial burden on the single 
VAX computer which hosts the simulation. Since it is a 
fairly slow process to change and redisplay the Geotactical 
Display, compromises are inevitably made in selecting the 
scale or symbology for display. It is unarguable that the 
graphical representation best suited to prosecute the outer 
air battle is not the one best suited for battle group inner 
missile defense. 

The time loss and distractions that result from use of 
the current interface detract considerably from the user' s 
attention to the actual battle simulation decisions and 
strategy. 

B. THE PROGRESS 

This document is a Proof of Concept of a visual 
interface, menu and "mouse" input method for the RESA 
simulation, and is a logical progression of earlier interface 
studies. The following is a short synopsis of the 
progression of studies leading to this thesis: 

[Manson, 1985] — Conducted experiment to compare speech 
and keyboard inputs to Naval Warfare Interactive Simulation 
System (NWISS, predecessor to RESA) in adverse conditions of 
lighting and noise. While spelling and typing problems may 
be solved by this interface method, the other input factors 
remain unsolved. Additionally, speech recognition input adds 
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the complication of inaccuracies in input due to current 
equipment limitations. 

[Irving, 1986] — Project to use A Macintosh microcomputer 
as a command input terminal for NWISS. Use was made of the 
"windowing" and menu/mouse selection methodology to avoid 
command syntax errors and speed command entry. 

[Sweeney, 1986] — Comparison of a "visual" Macintosh 
interface and voice command input to the standard keyboard 
entry method was made. Continuous voice input was favored 
over the visual interface if training time was not a 
significant restriction. 

[LeFever, 1987] — Investigated further the use of voice 
input methods to RESA, using the VOTAN continuous speech 
recognizer. Explored the complications arising from the need 
to categorize the game commands, and the inability to 
establish a tree architecture for correct command structure. 

[Lower, 1987] — Examined enhancement of player input to 
the Joint Theater-Level Simulation (JTLS) by using a visual 
interface method implemented on a desktop microcomputer, an 
Apple Macintosh. Showed the feasibility of coding of a 
prototype interface (in Pascal) , and laid out a sample 
program skeletal structure. The input process was 
streamlined somewhat, but coding was difficult and 
incomplete . 
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[Adams^ 1987] --Demonstrated the use of graphics and 
screen menus for the display of command and control 
information on a dedicated color graphics workstation, the 
IRIS. User input to control a simulation was not addressed 
here, but display concepts were evolutionary and menus as 
item selectors were effectively used. 

[Copeland, 1987] — Pursued the concept of the visual 
interface as primary input methodology. Windowing and 
menu/mouse usage, as normally implemented on a Macintosh, was 
applied to the JTLS and Battle Group Tactical Trainer (BGTT) 
user interfaces. The framework for a generic architecture 
for this type of interface was discussed. Desirable features 
of a visual interface were also discussed. 

[Stevens, 1987] — Demonstrated the feasibility of 
improving and enhancing the user interface of the BGTT by 
developing a visual interface prototype. Code for a small 
subset of the user I/O process was written. MACTRAN 77, a 
Macintosh version of FORTRAN 77, was used as the language. A 
communications driver was not made available, so actual 
interface with RESA on the VAX was not accomplished. 

All previous programming efforts resulted in incomplete 
work which was innovative, but not a full implementation of 
the visual concept. This Proof of Concept effort is an 
extensive and complete program, which, when interfaced to the 
RESA host computer, promises a fast and efficient interface 
capability not previously achieved. 
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C. THE PLAN 



A full-featured, efficient interface for RESA would serve 
several functions, and should be developed in several logical 
phases. Each of the following functions is currently being 
done, but it takes at least three different terminals to 
accomplish it. A complete "smart" interface program would 
handle all of these functions from a single terminal , with 
immediate access to each function through the menu system. 

1. System Operation — The ability for system operators to 
set up and start RESA, and for "umpires" to control 
simulation events. 

2. Command Input --The ability to quickly create error- 
free command strings. 

3. Communication — The ability to allow actual data flow 
between the user and RESA. 

4. Status Boards — The ability to display the currently 
generated data from the RESA simulation. 

5. Geo-graphics — The ability to display the current 
scenario and/or status of units of the battle group in color 
graphics . 

Time and scope limit this Proof of Concept to Phases 2 
and 3, with some work on 1. 
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IV. THE RESA INTERFACE PROGRAM (RIP) 



A. OVERVIEW 

The RIP was designed to be a smart interface between the 
user and RESA. It operates entirely on the ATARI ST as a 
background program, and can not be distinguished by the VAX 
as other than a "dumb" terminal. When implemented as a full- 
featured program, the system operator, during boot-up, will 
be able to easily configure (Figure 1) the terminal according 
to different users' skill levels. No user access to the 
program code is required or desireable. The command 
sequences, or orders, are created in their entirety on the 
ST and then sent to the VAX. 

Although their use was not precluded, no attempt to use 
the RESA error-checking or on-line help capabilities was 
made, as this would unnecessarily complicate the RIP. The 
inherent characteristics of the ST' s drop-down menu system 
make on-line help largely redundant, and keyboard entry 
error-checking was handled by the RIP. 

B. PROGRAM OPERATION 

In the current version of the program, the operator is 
presented an interface which runs rapidly, provides error 
checking and a logical sequencing of the events necessary to 
build any required order and send it as an error-free 
product. The code runs very swiftly such that no delay is 
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Naval Postgraduate kbool 

Figure 1 

Configuration display screen. 

generated by the computer interface. Capabilities of the 
ATARI have been used to present windows and boxes which 
remain until a selection has been made. Less hand motion is 
required on the mouse than with previous attempts on ■ the 
Macintosh. The user is free to move from mode to mode at any 
time unless such a move would be counter-productive, in which 
case it is prohibited, and audio cues are generated when 
inadvisable attempts are made. A correct degree of 
automation has been attained considering the requirement for 
alpha-numeric input variability which is high during game 
play and generally unknown in scope at game outset. In 
addition, the work surface is attractive and easy to see. 




USER TVPE 

A. Systen operator 

B. Experienced user 

C. New user 
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The user sits at a terminal where the RIP is running. 
RESA system operators would normally be the ones to have 
started the system and activated each terminal, but RIP 
initialization on the ST is simple enough for ordinary users. 

The starting screen display (Figure 2) will provide the 
Main Menu, one of the three primary control menus. The other 
two are: Force Menu A and Force Menu B. Access to each 

primary menu is available from each other primary menu using 
the "new Menu" menu bar selection. Figure 3 shows the "drop- 
down" menu choices for "new Menu" available during a Main 
Menu screen display. 

Main t) new Menu ASTAB GRAPHICS COMMS UMPIRE 




Figure 2 

Starting display screen. 
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CANCEL connand 



ENECUTE contijnd 



Figure 3 

Primary menu selection screen 



Orders are ’’built” by successively selecting menu 
headings and using the ’’mouse" to select desired commands. 
As commands are selected, the RIP branches programmatically 
to ask for necessary data or additional commands. Users are 
directed to make a specific choice from the screen or a 
secondary menu, or to use the keyboard to enter alpha-numeric 
characters. Considerable error-checking is performed if the 
keyboard is used. As they are being built, orders are 
displayed in a command box at the bottom of the screen as 
shown in Figure 4. When an order is syntactically correct, 
the user is given the choice to Execute or Cancel it. 
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Execution of partial orders is not allowed, but Cancellation 
at any time is possible by pressing the Control / Shift / 
Alternate keys simultaneously. 

Force Ac) new Menu FOR xxx HANEUUERS SENSORS ENGAGE 



FOR KITTV PROCEED 



Enter course (0-359’ True): 234 
Enter distance or range (i-9999 nni) ! 
Enter speed (1-9999 kts): 888 



5678 



CUNCEL comand 


FOR KITTV i 

1 


EXECUTE contend 


1 FOR KITTV PROCEED 234 5678 888 





Figure 4 

Example of commands built to form an order. 
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C. THE CODE 

The BASIC language allows programmers nearly unlimited 
latitude in program structure, and when programmer discipline 
is minimal, BASIC programs frequently look more like free- 
form art than functional software. To allow others to easily 
understand and enhance the RIP, a rigid structure (Figure 5) 
and logical program flow was used throughout. The program is 
segmented into mainly short, similar procedures. Repetitive 
functions are contained in common procedures whenever 
possible. The RIP Code is included as Appendix A. 

MAIN PROGRAM 

INITIALIZES VARIABLES AND CALLS MAIN MENU. 

MENUS 

PRIMARY. SECONDARY AND TERTIARY MENUS. 

MENU READ 

BRANCHES TO INITIAL COMMAND PROCEDURE. 

GENERAL 

COMMON & MULTI-USE . INPUT DISPLAY. DATA FLOW. 

COMMAND PROCEDURES 

PROCEDURES SPECIFIC TO COMMANDS 

Figure 5 

RESA Interface Program Structure. 
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Generally, program flow (Figure 6) is as follows 

1. Display a primary menu. 

2. Wait for menu selection. 

3. Branch to a menu_read procedure. 

4. Branch to procedure for specific command. 

5. Follow command "tree” until order is complete. 

6. Wait to Execute or Cancel order. 

7. Display a primary menu (back to step 1). 




Figure 6 

RESA Interface Program Flowchart 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

The concept to be proven was that an inexpensive color 
graphics microcomputer could serve as an "intelligent" 
terminal for the RESA wargaming simulation. Success depended 
on whether the command structure of RESA could be effectively 
represented in code and implemented on a system meeting the 
aforementioned requirements. The operating program (RIP) 
that has been created generates such an interface which 
operates rapidly, and can incorporate the entire command 
structure for RESA with room for future expansion. In 
addition, the chosen hardware/software combination provides a 
windowing environment which can be used to support all RESA 
player functions on one very cost-effective terminal. 

The program runs very efficiently and demonstrates many 
visual interface criteria developed by previous researchers 
as well as improving on many previous suggestions . The 
concept has been shown to be not only practical, but 
available for use and robust where future changes are 
concerned. While extensive user testing has not been 
attempted, and many enhancements remain unfinished, 
preliminary indications are that considerable user efficiency 
will be gained by use of the user interface developed in this 
paper . 
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B. RECOMMENDATIONS FOR FURTHER STUDY 



In order to bring the process started here to its optimal 
conclusion, and allow the RIP to produce the kind of 
efficiencies that are possible, several additional steps must 
be taken. 

1. Accomplish the data interface with the VAX/RESA system 
and ensure VAX-generated messages are automatically 
displayed in "attention” windows. 

2. Conduct studies of the actual efficiency gain from 
using the RIP, or portions of it. 

3. Conduct user experiments to fully optimize RIP 
displays and interactive usage. 

Having accomplished the interface, determine the 
techniques required and code changes to route four types of 
RESA information to the same serial port. Then enhance the 
RIP in the following fashion. 

First, write code for display of the ASTABS . Each one 
could be called from a menu and displayed in a separate 
window while still sending orders to RESA. It is even quite 
possible to use the mouse cursor to point directly at ASTAB 
items for input in the command structure, thereby reducing 
the slower keyboard usage even further. New status displays 
could be developed and made a permanent part of the RIP, or 
provisions could be made to allow each user to create his 
own. Test the code and integrate into the RIP. 
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Write code for display of Geo-graphics. Steps to 
enhance the graphics display would be similar to those 
described for the ASTABS . Additionally, unit movement or 
positioning commands could be done as simply as pointing at 
the unit and pointing where you wanted it to go. Features 
like those in microcomputer "paint & draw" programs could be 
included to allow for initial positioning of forces. Test 
the code and integrate into the RIP. 

Write code to create different interfaces for different 
skill levels of users, i.e.. System Operator, Umpire, 
Experienced User, Novice User. This would allow only the 
commands that the particular user needed to be accessible, or 
various levels of Help to be automatically provided. Test 
the code and integrate into the RIP. 

Add peripheral enhancements. Utility programs can be 
installed during boot-up of the ATARI ST, and used by simply 
touching the menu bar during RIP operation. A user could 
have instant access to a calculator, notepad, references on 
ships or planes, and/or other useful functions. 

Finally, explore the translation of the RIP to the 
Enhanced Naval Warfare Gaming System (ENWGS) which has been 
selected to replace the Navy's primary wargaming system. Use 
of this concept would greatly reduce the effort needed to 
operate the ENWGS simulation from each of the many terminals 
currently required, and reduce the cost of system 
requirements . 
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APPENDIX A 



RESA Interface Program Code (RIP) 
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rJlIN PROGRAM 
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' On Break Cent 
01nit 

0User_type 

0Save_blanks 

0Draw_box 

0Main_menu 



! deactivates "break" capability. 

for initializing & dimensioning 

allows choice of tvpe of user; NOT VET WRITTEN ! 

saves blank screen areas to use to clear screen after inputs 

draws box for output string 

main menu 



01 XL XL XL XL XL XL XXXL XI 01 01 XL XL XL XL 11 XL XL XL XL 
7777 7777 77 77 7TT7 77 77 77777777 77 7T 77 77 77 77 77 



XL XL 00 XL XL XL XL XL XL XL 01 XX XL XL XL 11 XL XL XL XL 11 XL 01 XL XL XL 11 11 11 11 00 01 01 01 11 XL XL XL XL XL XL XL XL XL 01 OX XL 01 XL XL XL XL 
77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 T7 77 77 77 77 77 77 77 77 77 77 77 77 TT 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 



MENU PROCEDURES 
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Produces dialog box to enter "type" of user; Wdr.ll 
allow various levels of access to the syste: 



COMPLETE , 
commands 



this 



could 



Procedure User_type 

Cstr$="Welcome to the RESA Interface Program." 

Cstr25=".Naval Postgraduate School" 

Deftext 1,0,0,13 
Text 120,50,400,Cstr$ 

Deftext 1,1,0,13 
Text 120,170,400,Cstr2$ 

Deftext 1,0, 0,6 !#n resets text type to normal 

Mtxt$=" USER TYPE A. System operator B. Experienced user C. New user" 

Alert 2,Mtxt$,l," ABC ",A 
Print A 
Clr A 

Return !0User_type 



Procedure Main_menu 
0Cclear_middle 
Void Fre(O) 

Restore Mmain_data 
For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$ ( I 
Next I 



! clean up variables 

! set up a loop 
! read data from data field 
! until end of data field 



MAIN Menu 
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Bar$(I)="" 

Bar$(I+l)="" 

Mmain_data : 

Data Main -’C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

I 

Data new Menu , 

Data FORCE Menu A ->C maneuvers sensors engagements 

Data 

Data FORCE Menu B -•C aircraft submarines force comms 
Data 

I 

Data ASTAB ,-, Bearing, Classify, CPA, Designate , Drop, Print, Show,"" 

I 

Data GRAPHICS ,-, Plot, Erase, Center, Radius, Shift, Label, LOB 
Data Mark track, Mark bearing. Unmark track. Unmark bearing 
Data Place, Cancel,"" 

t 

Data COMMS Inform, Intell, Message ,"" 

I 

Data UMPIRE ,-, Go, Pause, End 

Data Copy, Relocate, Save, Time, Set 

Data Enable, Disable, Expend, Replenish,"" 

Data *** 

Menu Bar$() ! activate menu 

On Menu Key Gosub Help_key_test 
On Menu Gosub Main_menu_read 

On Menu Ibox 1,450,142,180,18 Gosub Inbox_execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox_cancel 
Do 

On Menu 
Loop 

Return !@Main_menu 



Procedure Force_menu_a 
@Cclear_middle 
Void Fre(O) 

Firsttime ! =True 
Restore Fforce_a_data 
For 1=0 To 110 
Read Bar$(I) 

Exit If Bar$(I)='”^**" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 
Fforce_a_data : 

Data Force A-C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 



FORCE Menu A 



clean up variables 

allows "Weapons Tight/Free" to register only once 

! set up a loop 
! read data from data field 
! until end of data field 

! tail blanks into string 
! ditto 



! tail blanks into string 
! ditto 
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Data new Menu , 

Data MAIN Menu -’C astab graphics player comms game 

Data 

Data FORCE Menu B -•C aircraft submarines force comms 
Data 

I 

Data FOR xxx Select unit 

I 

Data MANEUVERS Course, Speed, Proceed, Station 
Data Search, USE (plan) , Execute (plan) 

Data Enter Orders, Pending Orders , Cancel,"" 

I 

Data SENSORS ,-, Activate , Silence, Blip on. Blip off , DECM on 
Data DECM off , RBOC on, RBOC off , Jam, Cease, Emcon,"" 

I 

Data ENGAGE ,-, Weapons , Fire, Launch, Take,"" 

Data 

I 

Menu Bar$() ! activate menu 

On Menu Gosub Force_menu_a_read 
On Menu Ibox 1,450,142,180,18 Gosub Inbox_execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox_cancel 
Do 

On Menu 
Loop 

Return !0Force_menu_A 



Procedure Force_menu_b 
0Cclear_middle 
Void Fre(O) 

Restore Fforce_b_data 
For 1=0 To 110 !90 

Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 
Fforce_b_data ; 

Data Force B--C, ?? 

Data 
Data 
Data 
Data 
Data 
Data 
Data 



! clean up variables 

! set up a loop 
! read data from data field 
! until end of data field 

! tail blanks into string 
! ditto 



1 , 2 , 3 , 4 , 5 , 6 ,"" 

new Menu , 

MAIN Menu --C astab graphics player comms game 



FORCE Menu A -’C maneuvers sensors engagements 



FORCE Menu B 



II II 



Data FOR xxx ,-, Select unit 



Data AIRCRFT ,-, Launch ,-, Flight Cmds ,-, Alert, Close 
Data Handover, Open, Orbit, Recall, Recover,"" 
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I 



Data SUBMRINE Depth, Surface, Periscope , Fire 
Data Mode, Mast, Deploy, Retrieve,"" 

I 

Data COMMS ,-, Commtext , Embark, Report, Circuit," 
Data *** 

I 

Menu Bar$() ! activate menu 

On Menu Gosub Force_menu_b_read 
On Menu Ibox 1,450,142,180,18 Gosub Inbox_execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox_cancel 
Do 

On Menu 
Loop 

Return !0Force_menu_B 



' Designate sub-menu 

Procedure Designate_menu 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Ddesignate_data 

! set up a loop 
! read data from data field 
! until end of data field 



! tail blanks into string 
! ditto 



For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 

Next I 
Bar$(I)="" 

Bar$(I+l)="" 

Ddesignate_data : 

Data Desig -^C , ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

Data as... ,-, Enemy, Friendly 
Data *** 

Cstr$="select Designation..." 

Print At(39-Int (Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Menu Bar$() ! activate menu 

On Menu Gosub Designate_menu_read 
Do 

On Menu 
Loop 

Return !0Designate_menu 



Neutral, Unknown,"" 



Show sub-menu 



Procedure Show_menu 

Menu Kill !## kills menu 
Restore Sshow_data 
For 1=0 To 90 ! 

Read Bar$(I) I 

Exit If Bar$(I)="***" ! 

Next I 

Bar$(I)="" ! 

Bar$(I+l)="" ! 

Sshow data: 



; to stop use of Execute/Cancel boxes 

set up a loop 

read data from data field 

until end of data field 

tail blanks into string 
ditto 
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Show --C , ?? 



Data 
Data 

Data 1,2, 3, 4, 5, 6,"" 

I 

Data A - C ,-, AAWC, Active, Air, ASUWC, ASWC, Bogey (tote & cap) 

Data Continuation (of next page) 

I 

Data D - P ,-, Damage (& reconn info) , ESM, EWC, Flight, Force, HFDF 
Data Intell (spot reports). Passive (sonar tracks),"" 

I 

Data Q - Z ,-, Reporting (policies). Ship, Shore, SOSUS (tracks) 

Data Submarine, Surface (tracks). Surveillance (satellites) , Weather,"" 
Data *** 

I 

Cstr$="Select item to Show status information for..." 

Print At (39-Int (Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() 

On Menu Gosub Show menu read 



Do 

On Menu 
Loop 




Return !0Show_menu 

1 




1 

Procedure Display_menu 


Display sub-sub-menu (of Show menu) 


Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 

Restore Ddisplay_data 


For 1=0 To 90 


! set up a loop 


Read Bar$(I) 


! read data from data field 


Exit If Bar$(I)="***" 
Next I 


! until end of data field 


Bar$(I)="" 


tail blanks into string 


Bar$(I+l)="" 
Ddisplay_data ; 

Data Display--C , ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 


! ditto 



Data on... ,-, Blue, Neutral, Orange, <astab>, <continue> ,"" 

Data *** 

Cstr$="Select which display to show information on." 

Print At (39-Int (Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() ! activate menu 

On Menu Gosub Display_menu_read 
Do 

On Menu 
Loop 

Return ! 0Display_menu 

I 

' Show Air sub-sub-menu (of Show menu) 

Procedure Show_air_menu 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Showair_data 
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For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 
Showair_data ; 

Data Show ->C , ?? 

Data 



! set up a loop 
! read data from data field 
! until end of data field 

! tail blanks into string 
! ditto 



Data 1 , 2 , 3 ,4 , 5 , 6 , " " 

Data air... Alert, Availability , Events, Tracks,"" 
Data *** 

Cstr$="Select AIR item." 

Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() ! activate menu 

On Menu Gosub Show_air_menu_read 
Do 



On Menu 
Loop 

Return !0Show_air_menu 



Plot sub-menu 



Procedure Plot_menu 
Menu Kill 
Restore Pplot_data 

For 1=0 To 90 ! set up a loop 

Read Bar$(I) ! read data from data field 

Exit If Bar$(I )="***" ! until end of data field 

Next I 



Bar$(I)="" ! tail blanks into string 

Bar$(I+l)="" ! ditto 

Pplot_data : 

Data Plot -C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

Data new Menu , 

Data MAIN Menu ->0 astab graphics player comms game 

Data 

Data FORCE Menu A ->C maneuvers sensors engagements 

Data 

Data FORCE Menu B --C aircraft submarines force comms 
Data 



I 



M II 



Data PLOT ,-, All, Blue, Orange, Own, Boundaries , Chaff, LOB 
Data Regions, Rivers, Sonobuoy, Speed, Survsat, PIM, Track, Station,"" 



Data *** 

Menu Bar$() ! activate menu 

On Menu Gosub Plot_erase_menu_read 
Do 



On Menu 
T$="PL0T 



ensures "PLOT" precedes each Plot command. 



II 
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Loop 

Return !0Plot_menu 



Erase 



Procedure Erase_menu 
Menu Kill 

Restore Eerase_data 
For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 



! set up a loop 
! read data from data field 
! until end of data field 

! tail blanks into string 
! ditto 



Eerase_data : 

Data Erase ->C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

Data new Menu , 

Data MAIN Menu --C as tab graphics player comms game 

Data 

Data FORCE Menu A ->C maneuvers sensors engagements 

Data 

Data FORCE Menu B --C aircraft submarines force comms 
Data 



I 



II II 



sub-menu 



Data ERASE ,-, All, Blue, Orange, Own, Boundaries , Chaff, LOB 
Data Regions, Rivers, Sonobuoy, Speed, Survsat, PIM, Track, Station,"" 

I 

Data 

Menu Bar$() ! activate menu 

On Menu Gosub Plot_erase_menu_read 
Do 

On Menu 

T$="ERASE " ! ensures "ERASE" precedes each Erase command. 

Loop 

Return !0Erase_menu 



Procedure Cancel_menu 
Menu Kill 

Restore Ccancel_data 
For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 
Ccancel_data : 

Data Cancel ->C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

Data new Menu , 



! set up a loop 
! read data from data field 
! until end of data field 

! tail blanks into string 
! ditto 



Cancel sub-menu 
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Data MAIN Menu --C astab graphics player comms game 

Data 

Data FORCE Menu A -’C maneuvers sensors engagements 

Data 

Data FORCE Menu B -’C aircraft submarines force comms 
Data 

I 

Data A - B Activate , All, Altitude, Attach, Barrier, Bingo, Blip,"" 

I 

Data C - D ,-, Cease, Chaff, Circle , Course, Cover, DECM 
Data Deploy, Depth, Detach,"" 

I 

Data E - M ,-, Emcon, Execute , Fire, Grid, Jam, Launch 
Data Mast, Mission, Mode,"" 

I 

Data N - R ,-, Orbit, Proceed, RBOC, Recall, Reconn, Recover 
Data Refuel, Retrieve ,"" 

I 

Data S - Z Search, Silence , Speed, Station, Take, Turn 
Data Weapons, Xmark,"" 

I 

Data *** 

Menu Bar$() ! activate menu 

On Menu Gosub Cancel_menu_read 
Do 

On Menu 

T$="CANCEL " ! ensures "CANCEL" precedes each Cancel command. 

Loop 

Return !@Cancel_menu 



Weapons sub-menu 



Procedure Weapons_menu 

Menu Kill !## kills menu 
Restore Wweapons_data 
For 1=0 To 90 ! 

Read Bar$(I) ! 

Exit If Bar$(I)="***" ! 

Next I 

Bar$(I)="" ! 

Bar$(I+l)="" ! 

Wweapons_data : 

Data Weapons-’C, ?? 

Data 



; to stop use of Execute/Cancel boxes 

set up a loop 

read data from data field 

until end of data field 

tail blanks into string 
ditto 



Data 1,2, 3, 4, 5, 6,"" 

Data FREE ,-, Air, Surface, Submarine, All, Enemy 

Data Nuclear, Conventional ,"" 

Data TIGHT ,-, Air, Surface, Submarine, All, Enemy 

Data Nuclear, Conventional ,"" 

Data *** 

Cstr$="select Weapon item..." 

Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() ! activate menu 
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On Menu Gosub Weapons_menu_read 
Do 

On Menu 
Loop 

Return ! 0Weapons_menu 



Launch Cruise 



Procedure Cruise_menu 

Menu Kill !## kills menu 
Restore Ccruise_data 
For 1=0 To 90 ! 

Read Bar$(I) ! 

Exit If Bar$ (1)="***" ! 

Next I 

Bar$(I)="" ! 

Bar$(I+l)="" ! 

Ccruise_data : 

Data Cruise -’C, ?? 

Data 



; to stop use of Execute/Cancel boxes 

set up a loop 

read data from data field 

until end of data field 

tail blanks into string 
ditto 



Data 1,2, 3, 4, 5, 6,"" 

Data mode ,-, BOL, PL2, PL3, PLTWO, PLTHREE , TLAM,"" 
Data *** 

Cstr$="select Cruise mode..." 

Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() ! activate menu 

On Menu Gosub Cruise_menu_read 
Do 



On Menu 
Loop 

Return ! 0Cruise_menu 



sub-menu 



SENSOR Activate sub-menu 



Procedure Activate_menu 

Menu Kill !## kills menu 
Restore Aactivate_data 
For 1=0 To 90 ! 

Read Bar$(I) ! 

Exit If Bar$(I)="***" ! 

Next I 

Bar$(I)="" ! 

Bar$(I+l)="" ! 

Aactivate_data : 

Data Sensor-’C, ?? 

Data 



; to Stop use of Execute/Cancel boxes 

set up a loop 

read data from data field 

until end of data field 

tail blanks into string 
ditto 



Data 1,2, 3, 4, 5, 6,"" 

Data activate ,-, Air, Approach , Emitter, ESM, Radar, Sonar 
Data Surface, Survsat,"" 

Data *** 

Menu Bar$() ! activate menu 

Print At(31 ,Ytext%) , '"Select menu item..." 



If Aclaunch! 
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II 



T$=T$+"ACTIVATE 
Else 

T$=F_name$+" ACTIVATE " ! ensures "ACTIVATE" precedes each Activate cmd. 
Endif 

I 

On Menu Gosub Activate_menu_read 
Do 

On Menu 
Loop 

Return !0Activate_menu 



' Activate SONAR mode sub-menu 

Procedure Sonar_menu 
0Cclear_middle 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Ssonar_data 

! set up a loop 
! read data from data field 



For 1=0 To 90 
Read Bar$(I) 



Exit If Bar$(I)="***" ! until end of data field 

Next I 



! tail blanks into string 
! ditto 



Bar$(I)="" 

Bar$(I+l)="" 

Ssonar_data : 

Data Sonar --C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

Data mode... ,-, BB, CZ, DP, none ,"" 
Data *** 

Menu Bar$() ! activate menu 

Cstr$="Select a mode." 

Print At (40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
On Menu Gosub Sonar_menu_read 
Do 

On Menu 
Loop 

Return !0Sonar_menu 



SENSOR Silence sub-menu 



Procedure Silence_menu 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Ssilence_data 

! set up a loop 
! read data from data field 
until end of data field 



For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 



tail blanks into string 
ditto 



Ssilence_data : 

Data Sensor--C, ?? 
Data 



Data 1,2, 3, 4, 5, 6,"" 

Data silence ,-, Air, Approach , Emitter, ESM, Radar, Sonar 
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Data Surface, Survsat,"" 

Data 

Menu Bar$() ! activate menu 

Print At (31 ,Ytext%) ; "Select menu item..." 

I 

If Aclaunch! 

T$=T$+"SILENCE " 

Else 

T$=F_name$+" SILENCE " ! ensures "SILENCE" precedes each Silence cmd. 
Endif 



On Menu Gosub Silence_menu_read 
Do 

On Menu 
Loop 

Return !@Silence_menu 



AIRCRAFT mission sub-menu 



Procedure Mission_menu 
0Cclear_middle 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Mmission_data 
For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="’^**" 

Next I 
Bar$(I)="" 

Bar$(I+l)="" 



set up a loop 

read data from data field 

until end of data field 



tail blanks 
ditto 



into string 



Mmission_data : 

Data Aircrtt-C, ?? 
Data 



Data 1,2, 3, 4, 5, 6,"" 

Data mission ,-, none, AEW, Airtanker, ASW, CAP, Decoy, EW, Jammer 
Data Reconn, Relay, Rescue, Search, Strcap, Strike 
Data Sttanker, Surcap, Surveillance ,"" 

Data 

Menu Bar$() ! activate menu 

Cstr$="Select a mission" 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

On Menu Gosub Mission_menu_read 
Do 



On Menu 
Loop 

Return '.^Mission menu 



' AIRCRAFT commands sub-menu 

Procedure Flt_commands_menu 
0Cclear_middle 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Commands_data 

For 1=0 To 90 ! set up a loop 

Read Bar$(I) ! read data from data field 
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! until end of data field 



Exit If Bar$(I)="***" 

Next I 

Bar$(I)="" ! tail blanks into string 

Bar$(I+l)="" ! ditto 

Commands_data : 

Data Fit Cmd-C, ?? 

Data 

Data 1,2, 3, 4, 5, 6,"" 

I 

Data A - C ,-, Activate , Altitude, Attach, Barrier, Bingo, Cease 
Data Chaff, Course, Cover,"" 

I 

Data D - R ,-, Deploy, Detach, Fire, Inform, Jam, Load, Mission 
Data Proceed , Reconn, Refuel, Report,"" 

I 

Data S - Z ,-, Search, Silence , Speed, Station, Stop, Take 
Data Turn, Use, Weapons,"" 

Data *** 

I 

Menu Bar$() ! activate menu 

If Aclaunch! 

Print At (15 , 13) ; "dEnd flight plan with STOP, BINGO, or SEARCH command. | 
Endif 

On Menu Gosub Flt_commands_menu_read 
Do 

On Menu 
Loop 

Return !@Flt_commands_menu 



' AIRCRFT Fit cmds Report sub-menu 

Procedure Report_menu 

Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Rreport_data 

set up a loop 
read data from data field 
until end of data field 



For 1=0 To 90 
Read Bar$(I) 

Exit If Bar$(I)="***" 
Next I 
Bar$(I)="" 

Bar$(I+l)="" 
Rreport_data : 

Data Report ->C, ?? 

Data 



tail blanks into string 
ditto 



Data 1,2, 3, 4, 5, 6,"" 

Data menu ,-, <continue> , Air, ESM, On, Position, Surface, Time, Using, 
Data *** 

Cstr$="select Report item..." 

Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu Bar$() ! activate menu 

On Menu Gosub Report_menu_read 
Do 



On Menu 
Loop 
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, Return ! 0Report_menu 



' ############################################################################ 

I 

' MENU READ PROCEDURES 

I 

' ############################################################################# 
I 

' Main menu selections 

Procedure Main_menu_read 
Menu Off 
0Cclear_middle 

T$=F_name$ !## resets T$ to allow only one command in the string. 
0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 



If Bar$(Menu(0))=" 
0My_thesis 
Endif 


??" 

! alert box routine 


If Bar$(Menu(0))=" 
0Force_menu_a 
Endif 


FORCE Menu A ->C maneuvers sensors engagements" 


If Bar$(Menu(0))=" 
0Force_menu_b 
Endif 


FORCE Menu B --C' aircraft submarines force comms" 


1 

1 


------ ______ asTAB orders - - - - 


If Bar$ (Menu(O) )=" 
T$="BEARING " 
0Bbearing 
0Show_cmd 

Endif 

1 


Bearing" 


If Bar$ (Menu(O) )=" 
T$="CLASSIFY " 
0Cclassify 
0Show_cmd 

Endif 

1 


Classify" 


If Bar$(Menu(0))=" 
T$="CPA " 

0Ccpa 

0Show_cmd 

Endif 


CPA" 



If Bar$ (Menu(O) )=" Designate " 
T$="DESIGNATE " 
0Designate_menu 
Endif 

I 

If Bar$ (Menu(O) )=" Drop" 
T$="DROP " 

0Ddrop 
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@Show_cmd 

Endif 

I 

If Bar$(Menu(0) )=" Print" 

T$="PRINT " 

0Pprint 

0Show_cmd 

Endif 

I 

If Bar$(Menu(0) )=" Show" 

T$="SHOW " 

0Show_menu 

Endif 

' GRAPHICS orders 

If Bar$(Menu(0))=" Plot" 

0Plot_menu 

Endif 

If Bar$(Menu(0) )=" Erase" 

0Erase_menu 

Endif 

If Bar$(Menu(0) )=" Center" 

T$="CENTER " 

0Ccenter 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Radius" 

T$="RADIUS " 

0Rradius 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Shift" 

T$="SHIFT " 

0Sshift 

0Shov;_cmd 

Endif 

If Bar$(Menu(0))=" Label" 

T$="LABEL " 

0Llabel 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" LOB" 

T$="LOB " 

0Llob 

0Shov;_cmd 

Endif 

If Bar$(Menu(0) )=" Mark track" 

T$="MARK TRACK " 

0Mmark_track 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Mark bearing" 

T$="MARK BEARING " 
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0Mmark_bearing 

@Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Unmark track" 

T$="UNMARK TRACK " 

0Uunmark_track 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Place" 

T$="PLACE " 

0Pplace 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Cancel" 

T$="CANCEL " 

0Cancel_menu 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" PIM" 

T$="PIM " 

0Ppim 

0Show_cmd 

Endif 

I __________________________ COMMS orders 

If Bar$(Menu(0))=" Inform" 

T$=" INFORM " 

0Show_cmd 

Cstr$="Enter text to send to player: " 

Print At (37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Print 

Form Input 75,Fi$ 

T$=T$+Upper$(Fi$) 

0Show_cmd 

Endif 

I 

If Bar$ (Menu(O) )=" Intell" 

T$="INTELL " 

01intell 

I 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Message " 

T$="MESSAGE " 

0Mmessage 

0Show_cmd 

Endif 

' UMPIRE orders 

If Bar$(Menu(0))=" Go" 

T$="GO " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Pause" 
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T$="PAUSE " 

@Ppause 

@Show_cmd 

Endif 

If Bar$(Menu(0) )=" End" 

T$="END " 

@Eend 

@Show_cmd 

Endif 

If Bar$(Menu(0) )=" Copy" 
T$="COPy " 

@Ccopy 

@Show_cmd 

Endif 

If Bar${Menu(0) )=" Relocate" 
T$="RELOCATE " 

@Rrelocate 

@Show_cmd 

Endif 

If Bar$(Menu(0) )=" Save" 
T$="SAVE " 

@Show_cmd 

Endif 

If Bar$(Menu(0))=" Time" 
TS="TIME " 

@Ttime 

@Show_cmd 

Endif 

If Bar$(Menu(0))=" Set" 

T$="SET " 

@Sset 

@Shov;_cmd 

Endif 

If Bar$(Menu(0) )=" Enable" 
T$="ENABLE " 

@Enable_disable 

@Show_cmd 

Endif 

If Bar$(Menu(0))=" Disable" 
T$="DISABLE " 

@Enable_disable 

@Show_cmd 

Endif 

If Bar$(Menu(0) )=" Expend" 
T$="EXPEND " 
0Expend_replenish 
@Show_cmd 
Endif 

If Bar$(Menu(0) )=" Replenish" 
T$="REPLENISH " 
@Expend_replenish 
0Shov7_cmd 
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Endif 

Return ! 0Main_menu_read 



' Force menu A selections 

Procedure Force_menu_a_read 
Menu Off 
0Cclear_middle 

T$=F_name$ !## resets T$ to allow only one command in the string. 
0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 



If Bar$ (Menu(O) )=" 
0My_thesis 
Endif 

If Bar$(Menu(0))=" 
0Main_menu 
Endif 

If Bar$(Menu(0))=" 
0Force_menu_b 
Endif 

If Bar$ (Menu(O) )=" 
0F_entry 
0Force_menu_a 
Endif 



??" 

! alert box routine 

MAIN Menu -•€ astab graphics player comms game" 
FORCE Menu B ->C aircraft submarines force comms" 
Select unit " 



' MANEUVER orders 

If Bar$(Menu(0))=" Course" 

T$="C0URSE " 

0F_check 

0Ccourse 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Speed" 

T$="SPEED" 

0F_check 

0Sspeed 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Proceed" 

T$="PR0CEED " 

0F_check 

0Pproceed 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Station" 

T$="STATION " 

0F_check 

0Sstation 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Search" 

T$="SEARCH " 

0F_check 

0Ssearch 
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0Show_cmd 

Endif 

If Bar$(Menu(0) )=" USE (plan) " 

T$="USE " 

0F_check 

0Uuse 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Execute (plan)" 

T$="EXECUTE " 

0F_check 

0Eexecute 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Enter Orders" 

Cstr$="ENTER ORDERS command not functional; need RESA input." 
Print' At(12 ,Ytext%) ;Cstr$ 

Endif 

If Bar$(Menu(0) )=" Pending Orders " 

Cstr$="PEMDING ORDERS command not functional; need RESA input." 
Print At(12 , Ytext%) ;Cstr$ 

Endif 

If Bar$ (Menu(O) )=" Cancel" 

T$="CANCEL " 

0F_check 

0Cancel_menu 

0Show_cmd 

Endif 



If Bar$(Menu(0) )=" 
T$="ACTIVATE " 
0F_check 
0Activate_menu 
Endif 

If Bar$ (Menu(O) )=" 
T$="SILENCE " 
0F_check 
0Silence_menu 
Endif 

If Bar$(Menu(0) )=" 
T$="BLIP ON " 
0F_check 
0Show_cmd 
Endif 

If Bar$(Menu(0) )=" 
T$="BLIP OFF " 
0F_check 
0Show_cmd 
Endif 

If Bar$ (Menu(O) )=" 
T$="DECM ON " 
0F_check 



Activate " 



Silence" 



Blip on" 



Blip off " 



DECM on" 



SENSORS orders 
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0Show_cmd 

Endif 

If Bar$(Menu(0) )=" DECM off " 

T$="DECM OFF " 

0F_check 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" RBOC on" 

T$="RBOC ON " 

0F_check 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" RBOC off " 

T$="RBOC OFF" 

0F_check 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Jam" 

T$="JAM" 

0F_check 
0Jj am 
0Show_cmd 
Endif 

If Bar$ (Menu(O) )=" Cease" 

T$="CEASE" 

0F_check 

0Ccease 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Emcon" 

T$="EHCON" 

0F_check 

0Eemcon 

0Shov:_cmd 

Endif 

I _________________________ engage orders 

If Bar$ (Nenu(O) )=" Weapons " 

T$="WEAPONS " 

0F_check 

0Weapons_menu 

Endif 

If Bar$(Menu(0) )=" Fire" 

T$="FIRE " 

0F_check 

0Ffire 

0Shov;_cmd 

Endif 

If Bar$ (Menu(O) )=" Launch" 

T$="LAUNCH " 

0F_check 

0Llaunch 

Endif 
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If Bar$(Menu(0) )=" Take" 

T$="TAKE " 

0F_check 

0Ttake 

0Show_cmd 

Endif 

Return !@Force_menu_A_read 

I 

' Force menu B selections 

Procedure Force_menu_b_read 
0Cclear_middle 

T$=F_name$ !## resets T$ to allow only one command in the string. 
0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 



If Bar$(Menu(0))=" 
0My_thesis 
Endif 

If Bar$ (Menu(O) )=" 
0Main_menu 
Endif 

If Bar$ (Menu(O) )=" 
0Force_menu_a 
Endif 

If Bar$(Menu(0))=" 
0F_entry 
0Force_menu_b 
Endif 



??" 

! alert box routine 

MAIN Menu --C astab graphics player comms game" 
FORCE Menu A -•C maneuvers sensors engagements" 
Select unit " 



I ____________________ aIRCRFT selections 

If Bar$ (Menu(O) )=" Launch " 

T$="LAUNCH " 

0F_check 

0Ac_launch 

Endif 



If Bar$(Menu(0))=" Flight Cmds " 
0F_check 
Cstr2$="" 

0Flt_commands_menu 

Endif 

I 

If Bar$(Menu(0) )=" Alert" 
T$="ALERT" 

0F_check 

0Aalert 

Endif 

I 

If Bar$(Menu(0))=" Close" 
T$="CLOSE" 

0F_check 
0Show_cmd 
Inc Ytext% 

0Tc_choice 
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Endif 



If Bar$ (Menu(O) )=" Handover" 

T$="HANDOVER" 

@F_check 

@Hhandover 

Endif 

I 

If Bar$ (Menu(O) )=" Open" 

T$="OPEN" 

@F_check 
@Show_cmd 
Inc Ytext% 

@Tc_choice 

Endif 

I 

If Bar$(Menu(0) )=" Orbit" 

T$="ORBIT" 

@F_check 

0Oorbit 

Endif 

I 

If Bar$ (Menu(O) )=" Recall" 

T$="RECALL" 

@F_check 

0Show_cmd 

Cstr$="All flights." 

Print At (40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Inc Ytext% 

@Tc_choice 

Endif 

If Bar$(Menu(0) )=" Recover" 

T$="RECOVER" 

@F_check 

@Show_cmd 

Cstr$="All flights." 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc Ytext% 

@Tc_choice 

Endif 

' SUBMRINE selections 

If Bar$ (Menu(O) )=" Depth" 

T$="DEPTH " 

0F_check 

Cstr$="Enter depth (60-9999 ft) : " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=60 

Hilim%=9999 

Numlen%=4 

0Number_entry 

T$=T$+Pnum$ 
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Ytext%=Crslin 
Inc Ytext% 

@Tc_choice 

Endif 

I 

If Bar$(Menu(0) )=" Surface" 

T$="SURFACE" 

0F_check 

0Tc_choice 

Endif 

I 

If Bar$(Menu(0) )=" Periscope " 

T$="PERISCOPE" 

0F_check 

Cstr$="Come to periscope depth." 

Print .At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc Ytext% 

0Tc_choice 

Endif 

I 

If Bar$(Menu(0))=" Fire" 

T$="FIRE " 

0F_check 

0Ffire 

Endif 

I 

If Bar$(Menu(0))=" Mode" 

T$="MODE" 

0F_check 

Alert 2," Which mode? ",0, "Diesel Electric", A 
If A=1 Then 

T$=T$+" DIESEL" 

Endif 

If A=2 Then 

T$=T$+" ELECTRIC" 

Endif 
Clr A 

Inc Ytext% 

0Tc_choice 

Endif 

I 

If Bar$(Menu(0))=" Mast" 

T$="MAST" 

0F_check 

Alert 2," Select... ",0," Down Up", A 
If A=1 Then 
T$=T$+" DOWN" 

Endif 

If A=2 Then 
T$=T$+" UP" 

Endif 
Clr A 
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Inc Ytext% 

0Tc_choice 

Endif 

I 

If Bar$(Menu(0) )=" Deploy" 

T$="DEPLOY " 

0F_check 

0Ddeploy 

Endif 

I 

If Bar$(Menu(0))=" Retrieve" 

T$="RETRIEVE " 

0F_check 

0Ddeploy !## used also for "Retrieve" 

Endif 

' COMI^TEXT selections 

If Bar$(Menu(0) )=" Commtext " 

T$="COMMTEXT " 

0F_check 

0Ccommtext 

Endif 

I 

If Bar$ (Menu(O) )=" Embark" 

T$="EMBARK " 

0F_check 
0E embark 
Endif 

I 

If Bar$(Menu(0) )=" Report" 

T$="REPORT " 

0F_check 

0Shov7_cmd 

0Report_menu 

Endif 

I 

If Bar$ (Menu(O) )=" Circuit" 

T$="CIRCUIT " 

0F_check 

0Show_cmd 

Cstr$="Enter circuit number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

I 

0Show_cmd 

0Force_menu_b 

Return ! 0Force_menu_b_read 

I 

' Designate menu selections 

Procedure Designate_menu_read 
Menu Off 
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0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

If Bar$(Menu(0) )=" Enemy" 

T$=T$+"ENEMY " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

Endif 

I 

If Bar$(Menu(0) )=" Friendly " 

T$=T$+"FRIENDLY " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

Endif 

I 

If Bar$(Menu(0) )=" Neutral" 

T$=T$+"NEUTRAL " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

Endif 

I 

If Bar$(Menu(0))=" Unknown" 

T$=T$+"UNKNOWN " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

Endif 

I 

0Show_cmd 

0Main_menu 

Return !0Designate_menu_read 

I 

' 'Show' menu selections 

Procedure Show_menu_read 
Menu Off 
0Cclear_middle 

0Cclear_command_box clears it even if cmd not Cancelled or Executed 

i 

If Bar$(Menu(0))=" AAWC" 

T$=T$+"AAWC " 

0Af_choice !## AIR/FLIGHT choice 
0Display_menu 
Endif 

I 

If Bar$(Menu(0) )=" Active" 
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T$=T$+"ACTIVE " 

0Show_cmd 

Alert 2," Select... ",0, "Sonar Tracks ",A 
If A=1 

T$=T$+"SONAR " 

Endif 
If A=2 

T$=T$+"TRACKS " 

Endif 
Clr A 
0Show_cmd 

0Display_menu !## Sub-menu for Show menu 
Endif 

I 

If Bar$ (Henu(O) )=" Air" 

T$=T$+"AIR " 

0Show_cmd 

0Show_air_menu 

Endif 

I 

If Bar$(Menu(0))=" ASUWC" 

T$=TS+"ASUWC " 

0Af_choice !## AIR/FLIGHT choice 

Endif 

I 

If Bar$(Menu(0))=" ASWC" 

T$=T$+"ASWC " 

0Af_choice !## AIR/FLIGHT choice 

Endif 

I 

If Bar$ (Menu(O) )=" Bogey (tote & cap)" 

T$=T$+"BOGEY " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$ (Menu(O) )=" Continuation (of next page) " 
T$=T$+"CONTINUATION " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0) )=" Damage (& reconn info) " 

T$=T$+"DAMAGE " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$ (Menu(O) )=" ESM" 

T$=T$+"ESM " 

Alert 2," ESM... ",0,"Air Surface Tracks", A 

If A=1 
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T$=T$+"AIR 
Endif 
If A=2 

T$=T$+"SURFACE " 

Endif 
If A=3 

T$=T$+"TRACKS " 

Endif 
Clr A 
0Show_cmd 
0Display_menu 
Endif 

I 

If Bar$(Menu(0))=" EWC" 

T$=T$+"EWC " 

0Af_choice !## AIR/FLIGHT choice 
0Display_menu 
Endif 

I 

If Bar$(Menu(0)) = '' Flight" 

T$=T$+"FLIGHT " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0) )=" Force" 

T$=T$+"FORCE " 

0Show_cmd 

Cstr$="Enter force name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0))=" HFDF" 

T$=T$+"HFDF " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0) )=" Intell (spot reports)" 
T$=T$+"INTELL " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0) )=" Passive (sonar tracks)" 
T$=T$+"PASSIVE " 

0Show_cmd 

0Display_menu 
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Endif 

I 

If Bar$(Menu(0) )=" Reporting (policies)" 
T$=T$+"REPORTING " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$(Menu(0) )=" Ship" 

T$=T$+"SHIP " 

0Show_cmd 

0Display_menu 

Endif 

I 

If Bar$ (Menu(O) )=" Shore" 

T$=T$+"SHORE " 

0Shov;_cmd 

0Display_menu 

Endif 

If Bar$(Menu(0))=" SOSUS (tracks)" 
T$=T$+"SOSUS " 

0Shov7_cmd 

0Display_menu 

Endif 

If Bar$(Menu(0) )=" Submarine" 
T$=T$+"SUBMARINE " 

0Show_cmd 

0Display_menu 

Endif 

If Bar$(Menu(0) )=" Surface (tracks)" 
T$=T$+"SURFACE " 

0Show_cmd 

0Display_menu 

Endif 

If Bar$(Menu(0) )=" Surveillance (satellites) 
T$=T$+"SURVEILLANCE " 

0Show_cmd 

0Display_menu 

Endif 

If Bar$ (Menu(O) )=" Weather" 

T$=T$+"WEATHER " 

0Show_cmd 

0Display_menu 

Endif 

0Show_cmd 
0Main menu 
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Return !(§>Show_menu_read 

I 

' 'Display' menu selections 

Procedure Display_menu_read 
Menu Off 
0Cclear_middle 

@Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

Cstr$="Enter view number: " 

I 

If Bar$(Menu(0))=" Blue" 

T$=T$+"BLUE " 

@Va_entry 

Endif 

I 

If Bar$(Menu(0) )=" Orange" 

T$=T$+"0RANGE " 

@Va_entry 

Endif 

I 

If Bar$(Menu(0) )=" Neutral" 

T$=T$+"NEUTRAL " 

Endif 

I 

If Bar$(Menu(0))=" <astab>" 

Cstr$="Enter ASTAB number: " 

@Va_entry 

Endif 

I 

@Show_cmd 

@Main_menu 

Return !0Display_menu_read 

I 

' 'Display' menu selections 

Procedure Show_air_menu_read 
Menu Off 
0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

Cstr$="Enter ASTAB number: " 

I 

If Bar$(Menu(0))=" Alert" 

T$=T$+"ALERT " 

0Va_entry 

Endif 

I 

If Bar$(Menu(0) )=" Availability " 

T$=T$+"AVAILABILITY " 

0Va_entry 

Endif 

If Bar$(Menu(0) )=" Events" 
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T$=T$+"EVENTS 
0Va_entry 
Endif 

If Bar$(Menu(0) )=" Tracks" 

T$=T$+"TRACKS " 

0Va_entry 

Endif 

I 

0Show_cmd 

0Main_menu 

Return ! 0Show_air_menu_read 

I 

I _________ Common entry for AIR/FLIGHT choices from Show menu - - 

Procedure Af_choice 
0Show_cmd 

Alert 2," Select... ",0,"Air Flight ",A 
If A=1 

T$=T$+"AIR " 

Endif 
If A=2 

T$=T$+"FLIGHT " 

Endif 
Clr A 
Return 

I 

I ______ Common entry for View/ASTAB number from Display menu read - 

Procedure Va_entry 
0Show_cmd 

Print At (37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 

Hilim%=6 

Numlen%=l 

0Number_entry 

T$=T$+Pnum$ 

Return 



' Plot_Erase menu selections 

Procedure Plot_erase_menu_read 
Menu Off 
0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

If Bar$ (Menu(O) )=" MAIN Menu -'C astab graphics player comms game" 
0Main_menu 
Endif 

If Bar$ (Menu(O) ) = " FORCE Menu A --C maneuvers sensors engagements" 
0Force_menu_a 
Endif 

If Bar$(Menu(0) )=" FORCE Menu B --C aircraft submarines force comms" 
0Force menu b 
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Endif 

If Bar$(Menu(0))=" All" 
T$=T$+"ALL " 

@Show_cmd 

Endif 

If Bar$(Menu(0))=" Blue" 
T$=T$+"BLUE " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Orange" 
T$=T$+"ORANGE " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Own" 
T$=T$+"OWN " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Boundaries 
T$=T$+"BOUNDARIES " 
0Show_cmd 
Endif 

If Bar$(Henu(0) )=" Chaff" 
T$=T$+"CHAFF " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" LOB" 
T$=T$+"LOB " 

0Shov7_cmd 

Endif 

If Bar$(Menu(0))=" PIM" 
T$=T$+"PIM " 

0Show_cmd 

Endif 

If Bar$ (Henu(O) )=" Regions" 
T$=T$+"REGIONS " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Rivers" 
T$=T$+"RIVERS " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Sonobuoy" 
T$=T$+"SONOBUOy " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Speed" 
T$=T$+"SPEED " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Survsat" 
T$=T$+"SURVSAT " 

0Show_cmd 
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Endif 

If Bar$ (Menu(O) )=" Track" 

T$=T$+"TRACK " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Station" 

T$=T$+"STATION " 

0Show_cmd 

Endif 

I 

0Main_menu ! returns to main menu, allowing only one plot/erase choice 
Return ! 0Plot_erase_menu_read 

I 

' Cancel menu selections 

Procedure Cancel_menu_read 
Menu Off 
0F_check 
0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

If Bar$ (Menu(O) ) = " MAIN Menu -’C astab graphics player comms game" 
0Main_menu 
Endif 

If Bar$ (Menu(O) ) = " FORCE Menu A --C maneuvers sensors engagements" 
0Force_menu_a 
Endif 

If Bar$ (Menu(O) )=" FORCE Menu B -’C aircraft submarines force comms" 
0Force_menu_b 
Endif 

If Bar$ (Menu(O) )=" Activate " 

T$=T$+"ACTIVATE " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" All" 

T$=T$+"ALL " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Altitude" 

T$=T$+"ALTITUDE " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Attach" 

T$=T$+"ATTACH " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Barrier" 

T$=T$+"BARRIER " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Bingo" 

T$=T$+"BINGO " 

0Shov;_cmd 



54 



Endif 

If Bar$(Menu(0) )=" Blip" 
T$=T$+"BLIP " 

0Shov7_cmd 

Endif 

If Bar$(Menu(0) )=" Cease" 
T$=T$+"CEASE " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Chaff" 
T$=T$+"CHAFF " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Circle " 
T$=T$+"CIRCLE " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Course" 
T$=T$+"COURSE " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Cover" 
T$=T$+"COVER " 

0Shov;_cmd 

Endif 

If Bar$(Menu(0))=" DECM" 
T$=T$+"DECM " 

0Shov7_cmd 

Endif 

If Bar$(Menu(0) )=" Deploy" 
T$=T$+"DEPLOY" 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Depth" 
T$=T$+"DEPTH " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Detach" 
T$=T$+"DETACH " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Emcon" 
T$=T$+"EMCON " 

0Shov7_cmd 

Endif 

If Bar$(Menu(0) )=" Execute 
T$=T$+"EXECUTE " 
0Show_cmd 
Endif 

If Bar$(Menu(0) )=" Fire" 
T$=T$+"FIRE " 

0Show_cmd 



Endif 

If Bar$ (Menu(O) )=" Grid" 
T$=T$+"GRID " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Jam" 
T$=T$+"JAM " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Launch" 
T$=T$+"LAUNCH " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Mast" 
T$=T$+"MAST " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Mission" 
T$=T$+"MISSION " 

0Shov;_cmd 

Endif 

If Bar$ (Menu(O) )=" Mode" 
T$=T$+"MODE " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Orbit" 
T$=T$+"ORBIT " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Proceed" 
T$=T$+"PROCEED " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" RBOC" 
T$=T$+"RBOC " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Recall" 
T$=T$+"RECALL " 

0Show_cmd 

Endif 

If Bar$ (Menu(O) )=" Reconn" 
T$=T$+"RECONN " 

0Shov7_cmd 

Endif 

If Bar$ (Menu(O) )=" Recover" 
T$=T$+"RECOVER " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Refuel" 
T$=T$+"REFUEL " 

0Show_cmd 
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Endif 

If Bar$ (Menu(O) )=" Retrieve " 
T$=T$+"RETRIEVE " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Search" 
T$=T$+"SEARCH " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Silence " 
T$=T$+"SILENCE " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Speed" 
T$=T$+"SPEED " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Station" 
T$=T$+"STATION " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Take" 
T$=T$+"TAKE " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Turn" 
T$=T$+"TURN " 

0Show_cmd 

Endif 

If Bar$(Menu(0) )=" Weapons" 
T$=T$+"WEAPONS " 

0Show_cmd 

Endif 

If Bar$(Menu(0))=" Xmark" 
T$=T$+"XMARK " 

0Show_cmd 

Endif 



0Main_menu ! returns to main menu, allowing only one "Cancel" choice 

Return !0Cancel_menu_read 



I 

Procedure Weapons_menu_read 



WEAPONS sub-menu selections 



1 f f 1 t f 1 t 1 1 f 1 1 1 1 1 1 1 

Weapons menu(O) 


1 f 1 f f f 1 1 

codes 




FREE 


/ TIGHT 


air 


12 


22 


surface 


13 


23 


submarine 


14 


24 


all 


15 


25 


enemy 


16 


26 


nuclear 


17 


27 
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' ! conventional 18 28 

I !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

Menu Off 
0Cclear_middle 

I 

If Firsttime! !## Keeps from repeating "Weapons Tight/Free" 

If Menu(0)>10 And Menu(0)<20 
T$=T$+"FREE " 

N%=20 !## menu() numbers 

Endif 

If Menu(0)>20 And Menu(0)<30 
T$=T$+"TIGHT " 

N%=10 

Endif 

For I%=N%+2 To N%+8 !## disables either Tight or Free menu items 

Menu I%,2 ! 

Next 1% ! 

Firsttime ! =False !## keeps from re-entering this if-loop 
Endif 

I 

If Bar$ (Menu(O) )=" Nuclear" 

T$=T$+"NUCLEAR " 

Menu 17,2 
Menu 18,2 
Menu 27,2 
Menu 28,2 

©Partial !## allows use of same menu to complete Weapons command 
Endif 

I 

If Bar$(Menu(0) )=" Conventional " 

T$=T$+"CONVENTIONAL " 

Menu 17,2 
Menu 18,2 
Menu 27,2 
Menu 28,2 
©Partial 
Endif 

I 

If Bar$(Menu(0) )=" Enemy" 

T$=T$+"ENEMY " 

Menu 16,2 
Menu 17,2 
Menu 18,2 
Menu 26,2 
Menu 27,2 
Menu 28,2 

©Partial !## allows completing string using same menu 
Endif 

I 

If Bar$(Menu(0))=" Surface" 

T$=T$+"SURFACE" 

©Tc_choice 
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Endif 

If Bar$(Menu(0) )=" Submarine" 

T$=T$+"SUBMARINE" 

@Tc_choice 

Endif 

If Bar$(Menu(0) )=" Air" 

T$=T$+"AIR" 

@Tc_choice 

Endif 

If Bar$(Menu(0))=" All" 

T$=T$+"ALL" 

@Tc_choice 

Endif 

I 

If Aclaunch! !## Launch seq is being used 

@Show_Cmd 

@Flt_commands_menu 

Else 

0Show_cmd 

0Force_menu_a !## will branch to Force_menu_a if Aclaunch! False. 
Endif 

Return !@Weapons_menu_read 

I 

' Launch CRUISE sub-menu selections 

Procedure Cruise_menu_read 
Menu Off 
0Cclear_middle 

Menu Kill !#^t allows menu to only be used once. 

Goto Lcl !## returns to where it was before branching to Cruise_menu. 

Return !@Weapons_menu_read 

I 

' Activate menu selections 

Procedure Activate_menu_read 
Menu Off 
0Cclear_middle 

I 

If Bar$(Menu(0) )=" Air" 

T$=T$+"AIR" 

Cstr$=" search radar" 

Print At (40-Int (Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc Ytext% 

0Use_time_choice 

Endif 

I 

If Bar$(Menu(0) )=" Approach " 

T$=T$+"APPROACH" 

0Show_cmd 
Cstr$=" radar " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Inc Ytext% 

0Use_time_choice 

Endif 
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I 



If Bar$ (Menu(O) )=" Emitter" 

T$=T$+"EMITTER" 

0Eemitter 

Endif 

I 

If Bar$(Menu(0))=" ESM" 

T$=T$+"ESM" 

0Use_time_choice 

Endif 

I 

If Bar$ (Menu(O) )=" Radar" 

T$=T$+"RADAR" 

0Show_cmd 

Cstr$=" (air/surface/approach) " 

Print At (40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc Ytext% 

0Use_time_choice 

Endif 

I 

If Bar$ (Menu(O) )=" Sonar" 

T$=T$+"SONAR " 

0Sonar_menu 

Endif 

I 

If Bar$(Menu(0) )=" Surface" 

T$=T$+"SURFACE" 

0Show_cmd 

Cstr$=" search radar " 

Print At(40-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Inc Ytext% 

0Use_time_choice 

Endif 

I 

If Bar$(Menu(0))=" Survsat" 

T$=T$+"SURVSAT " 

0Ssurvsat 

Endif 

I 

If Aclaunch! !## Launch seq is being used 

0Show_cmd 

0F1 t_c ommands_menu 
Else 

0Show_cmd 

0Force_menu_a !## will branch to Force_menu_a if Aclaunch! False. 
Endif 

Return !0Activate_menu_read 

I 

' Silence menu selections 

Procedure Silence_menu_read 
Menu Off 
0Cclear middle 
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I 



If Bar$(Menu(0))=" Air" 

T$=T$+"AIR" 

Cstr$=" search radar" 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 
Inc Ytext% 

0Name_time_choice 

Endif 

I 

If Bar$(Menu(0))=" Approach " 

T$=T$+"APPROACH" 

Cstr$=" radar " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 
Inc Ytext% 

0Name_time_choice 

Endif 

I 

If Bar$(Menu(0) )=" Emitter" 

T$=T$+"EMITTER" 

0Name_time_choice 

Endif 

I 

If Bar$(Menu(0))=" ESM" 

T$=T$+"ESH" 

Cstr$=" equipment " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc Ytext% 

0Name_time_choice 

Endif 

I 

If Bar$(Menu(0) )=" Radar" 

T$=T$+"RADAR" 

Cstr$=" (air/surface equipment) " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc Ytext% 

0Nam.e_time_choice 

Endif 

I 

If Bar$(Menu(0))=" Sonar" 

T$=T$+"SONAR" 

Cstr$=" equipment " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc Ytext% 

0Name_time_choice 

Endif 

I 

If Bar$(Menu(0) )=" Surface" 

T$=T$+"SURFACE" 

Cstr$=" search radar equipment " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc Ytext% 

0Name_time_choice 
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Endif 

I 

If Bar$(Menu(0) )=" Survsat" 

T$=T$+"SURVSAT " 

0Show_cmd 

Cstr$="Enter satellite name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

I 

0Show_cmd 
0Cclear_middle 
Cstr$="Enter force name: " 

Print At(37-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

0Tc_choice 

Endif 

I 

If Aclaunch! !## Launch seq is being used 

0Show_cmd 
0Flt_commands_menu 
Else 

0Show_cmd 

0Force_menu_a !## will branch to Force_menu_a if Aclaunch! False. 
Endif 

Return !0Silence_menu_read 

I 

' Sonar menu selections 

Procedure Sonar_menu_read 
Menu Off 
0Cclear_middle 

I 

If Bar$(Henu(0) )=" BB" 

T$=T$+"EB" 

Endif 

I 

If Bar$(Menu(0))=" CZ" 

T$=T$+"CZ" 

Endif 

I 

If Bar$(Menu(0))=" DP" 

T$=T$+"DP" 

Endif 

I 

0Use_time_choice 

I 

If Aclaunch! !## Launch seq is being used 

0Show_cmd 
0Flt_commands_menu 
Else 

0Show_cmd 
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0Force_menu_a !## will branch to Force_menu_a if Aclaunch! False. 

Endif 

Return 

I 

' Mission menu selections 

Procedure Mission_menu_read 
Menu Off 
0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

If Bar$ (Menu(O) )=" none" 

T$=T$+"MISSION NONE " 

0Show_cmd 

Endif 

I 

If Bar $ (Menu (0))=" AEW" 

Cstr2$="MISSI0N AEW" 

0Mission_common 

Endif 

I 

If Bar$(Menu(0) )=" Airtanker" 

Cstr2$="MISSI0N AIRTANKER" 

0Mission_common 

Endif 

I 

If Bar$(Menu(0) )=" ASW" 

Cstr2$="MISSI0N ASW" 

0Mission_conamon 

Endif 

I 

If Bar$(Menu(0) )=" CAP" 

Cstr2$="MISSI0N CAP" 

0Mission_common 

Endif 

I 

If Bar$ (Menu(O) )=" Decoy" 

Cstr2$="MISSI0N DECOY" 

0Mission_coiMion 

Endif 

I 

If Bar$(Menu(0))=" EW" 

Cstr2$="MISSION EW" 

0M i s s i on_c omm 0 n 
Endif 

I 

If Bar$ (Menu(O) )=" Jammer" 

Cstr2$="MISSI0N JAMMER" 

0Mission_common 

Endif 

I 

If Bar$ (Menu(O) )=" Reconn" 

Cstr2$="MISSION RECONN" 
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(§M i s s i on_c ommon 
Endif 

I 

If Bar$(Menu(0) )=" Relay" 

Cstr2$="MISSION RELAY" 

0Mission_c ommon 
Endif 

I 

If Bar$ (Menu(O) )=" Rescue" 

Cstr2$="MISSION RESCUE" 

0Mission_c ommon 
Endif 

I 

If Bar$ (Menu(O) )=" Search" 

Cstr2$="MISSION SEARCH" 

0Mission_c ommon 
Endif 

I 

If Bar$(Menu(0))=" Strcap" 

Cstr2$="MISSION STRCAP" 

0Mission_common 

Endif 

I 

If Bar$(Henu(0) )=" Strike" 

Cstr2$="MISSION STRIKE" 

0Mission_common 

Endif 

I 

If Bar$ (Menu(O) )=" Sttanker" 

Cstr2$="HISSION STTANKER" 

0M i s s i o n_c ommon 
Endif 

I 

If Bar$ (Henu(O) )=" Surcap" 

Cstr2$="HISSION SURCAP" 

0Mission_common 

Endif 

I 

If Bar$(Menu(0) )=" Surveillance " 

Cstr2$="HISSION SURVEILLANCE" 

0M i s s i on_c ommon 
Endif 

I ______ If Launch seq is being used, Aclaunch! is True. - - - 

If Aclaunch! 

0Flt_commands_menu 

Else 

0Force_menu_b !## will branch to Force_menu_b if Aclaunch! False. 
Endif 

Return !0Nission_menu_read 

I 

' A/C Commands menu selections 

Procedure Fit commands menu read 
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Menu Off 
@Cclear_middle 

I 

If Aclaunch! !## Launch seq is being used 

T$=T$+" " 

Endif 

I ------------ menu items with existing Procedures 

I 

If Bar$(Henu(0) )=" Activate " 

@Activate_menu 

Endif 

I 

If Bar$(Menu(0) )=" Altitude" 

T$=T$+"ALTITUDE " 

@Altitude_entry 

Endif 

I 

If Bar$(Menu(0))=" Cease" 

T$=T$+"CEASE" 

@Ccease 

Endif 

I 

If Bar$(Menu(0) )=" Course" 

T$=T$+"COURSE " 

@Ccourse 

Endif 

1 

If Bar$ (Menu(O) )=" Fire" 

T$=T$+"FIRE " 

@Ff ire 
Endif 

I 

If Bar$(Menu(0))=" Jam" 

T$=T$+"JAI^ " 

@Jjam 

Endif 

I 

If Bar$(Menu(0) )=" Proceed " 

T$=T$+"PROCEED " 

@Pproceed 

Endif 

I 

If Bar$(Menu(0) )=" Silence " 

@Silence_menu 

Endif 

I 

If Bar$(Menu(0) )=" Speed" 

T$=T$+"SPEED" 

@Sspeed 

Endif 

I 

If Bar$ (Menu(O) )=" Station" 
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II 



T$=T$+"STATION 
0Sstation 
Endif 

I 

If Bar$ (Menu(O) )=" Take" 

T$=T$+"TAKE " 

0Ttake 

Endif 

1 

If Bar$(Menu(0) )=" Use" 

T$=T$+"USE " 

0Uuse 

Endif 

1 

If Bar$ (Menu(O) )=" Weapons" 

If Aclaunch! 

T$=T$+"WEAPONS " 

Else 

T$="WEAPONS " 

0F_check 

Endif 

Firsttime ! =True 
0Weapons_menu 
Endif 

I 

i ------------ menu items with new Procedures 

1 

If Bar$ (Menu(O) )=" Attach" 

T$=T$+"ATTACH" 

0Aattach 

Endif 

I 

If Bar$ (Menu(O) )=" Barrier" 

T$=T$+"BARRIER" 

0Bbarrier 

Endif 

If Bar$(Menu(0))=" Chaff" 

T$=T$+"CHAFF " 

0Cchaff 

Endif 

I 

If Bar$ (Menu(O) )=" Cover" 

T$=T$+"COVER " 

0Ccover 

Endif 

If Bar$ (Menu(O) )=" Deploy" 

T$=T$+"DEPLOY " 

0Ddeploy 

Endif 

I 
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If Bar$ (Menu(O) )=" Detach" ■ 

T$=T$+"DETACH" 

@Show_cmd 

Cstr$="From collective flight." 

Print At (37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

@Time_entry 

Endif 

I 

If Bar$(Menu(0))=" Inform" 

T$=T$+"INFORM " 

@Show_cmd 

Cstr$="Enter text to send to player. " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 20,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

I 

If Bar$(Menu(0) )=" Load" 

T$=T$+"LOAD" 

@Show_cmd 

@Ac_load 

Endif 

I 

If Bar$(Menu(0))=" Mission" 

@Mission_menu 

Endif 

I 

If Bar$ (Menu(O) )=" Reconn" 

T$=T$+"RECONN " 

0Rreconn 

Endif 

I 

If Bar$(Menu(0) )=" Refuel" 

T$=T$+"REFUEL " 

©Rrefuel 

Endif 

I 

If Bar$(Menu(0))=" Report" 

T$=T$+"REPORT " 

@Show_cmd 

@Report_menu 

Endif 

I 

If Bar$(Menu(0) )=" Turn" 

T$=T$+"TURN " 

0Show_cmd 

0Course_entry 

0Show_cmd 

0Time_entry 

Endif 

I 

I jinenu items that end the Launch sequence 
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If Bar$ (Menu(O) )=" Stop" 

Aclaunch ! =False !## resets Launch sequence flag 
T$=T$+"STOP " 

Endif 



If Bar$(Menu(0) )=" Bingo" 

Aclaunch! =False !## resets Launch sequence flag 
T$=T$+"BINGO " 

Endif 



If Bar$ (Menu(O) )=" Search" 

Aclaunch !=False !## resets Launch sequence flag 
T$=T$+"SEARCH " 

0Ssearch 

Endif 



If Aclaunch! !## Launch seq is being used 

0Show_cmd 

0Flt_commands_menu 

Else 

0Shov;_cmd 

0Force_menu_b !## will branch to' Force_menu_b if Aclaunch! False. 
Endif 

Return ! 0Flt_commands_menu_read 



' Fit Commands REPORT menu selections 

Procedure Report_menu_read 

Menu Off 

0Cclear_middle 

0Cclear_command_box !## clears it even if cmd not Cancelled or Executed 

I 

If Bar$ (Menu(O) )=" Air" 

T$=T$+"AIR " 

0Aair 

Endif 

I 

If Bar$(Menu(0))=" ESM" 

T$=T$+"ESM " 

0Eesm 

Endif 

I 

If Bar$(Menu(0))=" On" 

T$=T$+"ON " 

0Oon 

Endif 

I 

If Bar$ (Menu(O) )=" Position" 

T$=T$+"POSITION " 

0Pposition 

Endif 
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If Bar$(Menu(0) )=" Surface" 

T$=T$+"SURFACE " 

0Ssurface 

Endif 

I 

If Bar$ (Menu(O) )=" Time" 

0Tttime 

Endif 

I 

If Bar$(Menu(0) )=" Using" 

T$=T$+"USING " 

0Uusing 

Endif 

I 

0Shov7_c'md 

0Force_menu_b 

Return !0Report_menu_read 

I 

I 

' GENERAL WORKING PROCEDURES 

I 

' ############################################################################# 

I 

I Proc to test keyboard scan & window use 

Procedure Help_key_test 

If Menu(14)=25088 !## 25088 is the scan code for Help key 

Wlx=300 ! maximum 638 (639 will cause the window to NOT reset) 

Wly=189 ! maximum 189 (menu bar takes 10 pix lines of screen) 

Get 0 ,0 ,Wlx+l ,Wly+l ,Savewindowl$ 

Openw l,Wlx,Wly 

Titlew 1, "Message about Help." 

Clearw 1 

Print "This is a help paragraph. It can be set up so that it is right" 
Print "where you want it. I am testing the Help Key." 

Print " Free RAM = ";Fre(0) 

Print " Press a key to continue." 

Repeat 

Until Inkey$<>"" 

Closew 1 

Put 0,0,Savewindowl$ 

Endif 

Closew 0 !## Resets screen after other windows are used. 

Return 

I 

' DIOX (Dialog box ) common procedure 

' Used as a "shell" procedure to help create dialog boxes 

I 

Procedure 

Draw_text_in_box(Ch$ ,X_text ,Y_text, Style ,Char_color ,Char_size ,Hborder , Vborder , - 
Thick, Inverse) 
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Local 

Of f set , Width , Height , Fatness , Round , See thru , Xhot_upper , Yhot_upper , Xhot_lower , - 
Yhot_lowe r , Temp$ 

If X_text<0 
Round=True 
Else 

Round=False 

Endif 

If Y_text<0 
Seethru=True 
Else 

Seethru=False 

Endif 

X_text=Abs (X_text) 

Y_text=Abs (Y_text) 

If Xbios(4)=l And Char_size=l 
Char_size=6 
Else 

If Xbios(4)=2 And Char_size=l 
Char_size=13 
Endif 
Endif 

If Char_size=32 
Height=32 
Width=16 
0ffset=4 
Else 

If Char_size=13 
Height=16 
Width=8 
Off set=3 
Else 

If Char_size=6 
Height=8 
Width=8 
Offset=l 
Else 

If Char_size=4 
Height=7 
Width=6 
Of fset=2 
Endif 
Endif 
Endif 
Endif 

I 

If Xbios(4)=2 
Strip=(0) 

Else 

Strip=(-8) 

Endif 

Xhot_upper=X_text-Hborder-Thick+l 
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Yhot_upper=Y_text+Of fset-Height-Vborder-Thick+20+Strip 
Xhot_lower=X_text+Len(Ch$)’^V/idth+Hborder+Thick-l 
Yhot_lower=Y_text+Of fset+Vborder+Thick+18+Strip 

Def text Char_color , Style , 0 , Char_size 
Graphmode 1 

I 

If Thick>0 
If Inverse 

Deffill Char_color , 1 , 

Else 

Deffill 0,0,0 
Endif 
Color 1 

If Round 
If Seethru 
Rbox 

(X_text-Hborder)-l , (Y_text+Offset-Height-Vborder)-1 , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Offset+Vborder)+1 
Else 
Prbox 

(X_text-Kborder) -1 , (Y_text+Offset-Height-Vborder)-1 , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Offset+Vborder)+1 
Endif 
Else 

If Seethru 
Box 

(X_text-Hborder)-l , (Y_text+Offset-Height-Vborder) -1 , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Of fset+Vborder)+l 
Else 
Pbox 

(X_text-Hborder) -1 , (Y_text+Offset-Height-Vborder)-1 , (X_text+Len(Ch$) *Width- 
+Hborder)+l , (Y_text+Offset+Vborder)+1 
Endif 

Endif 

1 

For Fatness=l To Thick 

I 

If Round 
Rbox 

(X_text-Hborder)-Fatness , (Y_text+Offset-Height-Vborder)-Fatness , (X_text+Len(Ch$) 

*Width+Hborder)+Fatness , (Y_text+Offset+Vborder)+Fatness 
Else 
Box 

(X_text-Hborder)-Fatness, (Y_text+Offset-Height-Vborder)-Fatness, (X_text+Len(Ch$) 

*Width+Hborder)+Fatness , (Y_text+Offset+Vborder)+Fatness 
Endif 

Next Fatness 

I 

Endif 
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I 



If Seethru 
Graphmode 2 

Text X_text,Y_text,Ch$ 

If Inverse 

Get Xhot_uppe r , Yhot_uppe r , Xhot_lowe r , Yhot_lov/e r , Temp$ 

Put Xhot_upper ,Yhot_upper,Temp$ ,12 
Endif 

Goto Buttonendl 
Endif 

I 

If Inverse And Thick>0 
Graphmode 3 
Else 

If Inverse And Thick<=0 
Graplimode 4 
Else 

If Not (Inverse) 

Graphmode 2 
Endif 
Endif 
Endif 

Text X_text,Y_text ,Ch$ 

Buttonendl : 

Graphmode 1 

Return ! DIOX common procedure 

I 

' save selected 'blank' areas of screen to use as "erasers" later 

Procedure Save_blanks 
Cls 

Get 0,11, 639, 140, Middle_box$ 

Get 9 , 162 , 625 , 194,Command_box$ 

Return 

I 

' response to ?? dialog box 

Procedure Ny_thesis 
Menu Off 

Mtxt$=" Thesis by LCDR G.L.Yungk advisor - CDR J. Stewart" 

Alert l,Mtxt$,l," OK ",A 
Clr A 
Return 



Procedure Init 
Setcolor 2,1911 
Dim Bar$(90) 
F_name$="" 
Ytext%=8 
Aclaunch ! =False 



Initialization/dimensioning 



!## Turns green background white, (for windowing) 

!## Main menu bar. 

!## Common start to "Force" commands 
!## Common line to start text on. 

!4r# allows use of individual Procs/menus in Launch seq. 
Lat_str$="Enter latitude (0-89N or S) : " !## To allov; use of err-chkng 

Long_str$="Enter longitude (0-180E or W) ; " !## with common Procedures. 
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Return 



' Store words/phrases in a string & prints in Command box 

I 



Procedure Show_cmd 
0Cclear_command_box 
If Len(T$)<=100 
Deftext 1,0, 0,9 
Text 15,175,Mid$(T$,0,50) 
Text 15,190,Mid$(T$,51) 

Else 

Deftext 1,0, 0,6 
Text 15,170,Mid$(T$,0,75) 
Text 15,180,Mid$(T$,76,75) 
Text 15,190,Mid$(T$,151,75) 



!## 100 characters, 2 lines max 

!## text size allows 50 characters per line 

!## first line in command box 

!## second line in command box 

!## 101 - 225 characters, 3 lines max 

!## normal text, allows 75 characters per line 



Endif 

Deftext 1,0, 0,6 !## resets text to normal size & color 

Return 



' Draw the Command, EXECUTE, & CANCEL boxes 

Procedure Draw_box 
Deftext 1,0, 0,8 

Text 460,155, "EXECUTE command" 

Text 15 , 155 , "CANCEL command" 

Color 2 



Defline 1,2, 0,0 
Box 450,142,630,160 
Box 5,142,175,160 
Defline 1,5, 0,0 
Box 5,160,630,196 
Color 1 

Defline 1,1, 0,0 
Deftext 1,0, 0,6 
Return !0Draw_box 



line for EXECUTE box 
EXECUTE box 
CANCEL box 

line for Command box 

Command box 

resets color to black 

resets line to normal width 

resets text to normal size & color 



' Test for mouse In the EXECUTE box 

Procedure Inbox_execute 
Deftext 2, 0,0, 8 
Text 460, 155, "EXECUTE" 

Deftext 1,0, 0,6 !## resets text type to normal 

Sound 1,15,5,4,3 

Sound 1,15,8,4,3 

Sound 1,15,5,4,3 

Sound 1,0, 0,0 

On Menu Obox 1,450,142,180,18 Gosub Outbox_execute 
On Menu Button 1,1,1 Gosub Send_string 
Do 

On Menu 
Loop 
Return 



Test for mouse Out of EXECUTE box 
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Procedure Outbox_execute 
Deftext 1,0, 0,8 
Text 460, 155, "EXECUTE" 

Deftext 1,0, 0,6 !## resets text type to normal 

On Menu Ibox 1,450,142,180,18 Gosub Inbox_execute 
Return 

J 

' Test for mouse In CANCEL box 

Procedure Inbox_cancel 
Sound 1,15,10,4 
Deftext 2, 0,0, 8 
Text 15,155, "CANCEL" 

Deftext 1,0, 0,6 !## resets text type to normal 

Sound 1,0, 0,0 

On Menu Obox 2,5,142,170,18 Gosub Outbox_cancel 
On Menu Button 1,1,1 Gosub Cancel_string 
Do 

On Menu 
Loop 
Return 

I 

' Test for mouse Out of CANCEL box 

Procedure Outbox_cancel 
Deftext 1,0, 0,8 
Text 15,155, "CANCEL" 

Deftext 1,0, 0,6 !## resets text type to normal 

On Menu Ibox 2,5,142,170,18 Gosub Inbox_cancel 
Return 

I 

' Clear command box 

Procedure Cclear_command_box 
Put 9 , 162 , Command_box$ , 3 
Return 

r 

' Send completed "order" to RESA 

Procedure Send_string 

If T$<>"" !## string must have something in it. 

0Cclear_middle 

0Cclear_command_box 

I 

' Open "",#1,"AUX:" 

I 

If Out?(l)=-l !## RS232 port is (1). -1 is ready; 0 is not. 

Print At(l ,4) /"sending: "; 

For 1=1 To Len(T$) !## maybe needs Len(T$)-l 

Pause 1 

Out l,Asc(Mid$(T$,I,l)) '.## output to RS232 port 
Out 2 , Asc(Mid$(T$ , I , 1 ) ) !## output to screen 
Next I 
Endif 

r 

' close #1 
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I 



T$="" 

Endif 

Return 

I 

' Cancel order/command & clear string 

Procedure Cancel_string 
0Cclear_middle 
0Cclear_command_box 
Print At (25 , 10) ; "command cancelled." 

T$="" 

Return 

I 

' clear middle of screen 

Procedure Cclear_middle 
Put 0 , 11 ,Iiiddle_box$ , 3 

Ytext%=8 !## To reset first text line to row 8. 

Return 

I 

I Error Alert box 

Procedure Entry_error 
0Entry_error_sound 

Alert 3," Entry error, try again! ",1," OK ",A 
Clr A 
Return 

I Error sound 

Procedure Entry_error_sound 
Sound 1,12,12,4 
Pause 3 
Sound 1,0, 0,0 
Return 

I Force addressee check 

Procedure F_check 

If F_name$="" !## Ensures an addressee for Force commands. 

Mtxt$=" This command requires an addressee (unit)." 
0Entry_error_sound 
Alert l,Mtxt$,l ," OK ",A 
0F_entry 
Endif 

If Not Instr (T$ ,F_name$) !## To precede Force cmds by "FOR 'addressee' 
T$=F_name$+" "+T$ 

Endif 
Clr A 

Print At(38-Int(Len(F_name$)/2) ,19) "+F_name$+" " ; 

Return 

I Force addressee entry 

Procedure F_entry 
F_name$="F0R " 

Print At(22 , Ytext%) ; "Enter name of addressee (unit): 

Form Input 5,Fi$ 

F_name$=F_name$+Upper$ ( Fi$ ) 

0Cclear_middle 
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Print At(38-Int(Len(F_name$)/2) , 19) ; " "+F_name$+" 

Return 

I Latitude entry check 

Procedure Lat_check 
Cx%=Crscol 
Cy%=Crslin 
Form Input 3,Lat$ 

Ltr=Asc(Right$(Lat$) ) !## ASCII value of direction (78 ,83 , 110 , 115) (NSns) 

If Val?(Lat$)>0 !## is there a digit in the string? 

If Val(Lat$)>=0 And Val(Lat$)<90 !## Is number value betwn 0 and 90? 
If Ltr=78 Or Ltr=83 Or Ltr=110 Or Ltr=115 !## correct direction? 

Goto Last_lat 
Endif 
Endif 
Endif 

0Entry_error 

Print At (Cx%, Cy%) ; " !## clear cursor area 

Print At(Cx%,Cy%); !## reposition cursor 

0Lat_check !## check it again 

Last_lat: !## latitude OK; continue. 

Return 



Procedure Long_check 
Cx%=Crscol 



Longitude entry check 



Cy%=Crslin 

Form Input 4,Long$ 

Ltr=Asc(Right$ (Long$) ) !## ASCII value of direction (69 ,87 , 101 , 119 ) (EWew) 
If Val? (Long$)>0 !## is there a digit in the string? 



If Val(Long$)>=0 And Val(Long$)<181 
If Ltr=69 Or Ltr=87 Or Ltr=101 Or 
Goto Last_long 
Endif 
Endif 
Endif 

0Entry_error 
Print At(Cx%,Cy%) 

Print At(Cx%,Cy%) ; 

0Long_check 
Last_long; 

Return 



!## Is number value betwn 0 and 180? 
Ltr=119 !## correct direction? 



!## clear cursor area 
!## reposition cursor 
!## check it again 
!## longitude OK; continue. 



I 



I Pure number entry and checking 

' I## need lolim%, hilim%, numlen% as input; 

' !## gives Pnum$ as output. 

Procedure Number_entry 

Cx%=Crscol ! remember x posit of cursor 

Cy%=Crslin ! remember y posit of cursor 

Form Input Numlen%,Pnum$ 

' Val(Pnum$) = actual numeric value of string Pnum$. 

' Val?(Pnum$) = number of characters in Pnum$ that are numeric. 

' Len(Pnum$) = length of string Pnum$. 

If Val(Pnum$)<Lolim% Or Val(Pnum$)>Hilim% Or Val? (Pnum$)oLen(Pnum$) 
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Print At(Cx%,Cy%) 
Print At(Cx%,Cy%); 
@Entry_error 
@Number_entry 
Endif 
Return 



I Common code for Aircraft MISSION menu selections 

I 

Procedure Mission_common 

Print At (40“Int(Len(Cstr2$)/2) ,Ytext%) ;Cstr2$ ; !## 'Mission' 

Inc Ytext% 

T$=T$+Cstr2$ 

@Tc_choice 

If Not Aclaunch! !## not using Launch sequence 
@Show_cmd 
Endif 
Return 

I 

' allows choice between TIME & continue. 

Procedure Tc_choice 
@Show_cmd 

Alert 2," select ... ",2,"TIME continue", C 
If C=1 

0Time_entry 
Endif 
Clr C 
Return 

I 

' Common minute entry 

Procedure Minute_entry 
Inc Ytext% 

Inc Ytext% 

Print At(28,Ytext%) ;"Enter minutes (1-9999)? " ; 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+Pnum$ 

Return 

I 

' Maneuvers sub-sub-proc 

Procedure Time_entry 

Print At(26,Ytext%) /"Enter start minute (1-999): 

Lolim%=l 
Hilim%=999 
Numlen%=3 
@Number_entry 
T$=T$+" TIME "+Pnum$ 

Ytext%=Crslin 

Return 



string 
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I 



' Maneuvers sub-sub-proc 

Procedure Course_entry 

Print At (26 , Ytext%) ; "Enter course (0-359 True): 

Lolim%=0 

Hilim%=359 

Numlen%=3 

0Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Return 

I 

' Maneuvers sub-sub-proc 

Procedure Bearing_entry 

Print At(26 ,Ytext%) ; "Enter bearing (0-359 True): 

Lolim%=0 

Hilim%=359 

Numlen%=3 

0Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Return 

I 

' Maneuvers sub-sub-proc 

Procedure Speed_entry 

Print At(27 ,Ytext%) ;"Enter speed (1-9999 kts): "; 

Lolim%=l 
Hilim%=9999 
Numlen%=4 
0Mumber_entry 
T$=T$+" "+Pnum$ 

Ytext%=Crslin 

Return 

J 

' Maneuvers sub-sub-proc 

Procedure Distance_entry 

Print At(21 ,Ytext%) ;"Enter distance or range (1-9999 nini) 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

0Number_entry 

T$=T$+" "+Pnum$ 

Ytext%=Crslin 

Return 

I 

' sub-sub proc 

Procedure Altitude_entry 

Cstr$="Enter altitude (1-90,000 ft); " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Cstr$="" 

Lolim%=l 

Hilim%=90000 
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Numlen%=5 

0Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Return 



Procedure Name_time_choice 
0Show_cmd 

Alert 2," select ... ",3,"<name> TIME continue", A 

If A=1 

0Cclear_middle 

Cstr$="Enter equipment name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$.+ " "+Upper$(Fi$) 

Ytext%=Crslin 

If Bar$ (Menu(O) )=" Emitter" 

0Name_time_choice 

Else 

0Tc_choice !## Time/continue choice 
Endif 
Endif 

I 

If A=2 

0Time_entry 

Endif 

Clr A !## don't clear A 

Return 

1 

I 

Procedure Use_time_choice 
0Show_cmd 

Alert 2," select ... ", 3, "USING TIME continue", A 

If A=1 

Print At(26 ,Ytext%) ; "Using what equipment? : " ; 

Form Input 5,Fi$ 

T$=T$+" USING "+Upper$(Fi$) 

Ytext%=Crslin 

I 

0Tc_choice !## Time/continue choice 

I 

Endif 
If A=2 

0Time_entry 

Endif 

I 

Clr A 
Return 

' Track common entry 
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' !## format is XX####; ie. AS234 

' !## for letters, gives Chr$(B) as output of last character. 

' !## for numbers, need lolim%, hilim%, numlen% as input; Pnum$ is output 

I 

Procedure Track_entry 

Cx%=Crscol ! remember x posit of cursor 

Cy%=Crslin ! remember y posit of cursor 

N%=Cx% ! set baseline number; allows certain # of iterations 

I 

I _____ character portion of track number. - - - - - 
Te: 

B=Asc(Upper$ (Chr$(Inp(2) ) ) ) 

If B<65 Or B>90 !## if char is not A - Z, then... 

Print At (Cx%, Cy%) ; " "; 

Print At(Cx%,Cy%); 

0Entry_error !## alert box & sound 

Goto Te !## recursion 

Endif 

Print Chr$(B); 

T$=T$+Chr$(B) 

Inc Cx% 

Print At(Cx%,Cy%); 

If N%=Cx%-l !## allows only one use of this IF loop 
Goto Te 
Endif 

I ________ numeral portion of track number ----- 

Lolim%=0 

Hilim%=999 

Numlen%=3 

0Number_entry 

T$=T$+Pnum$ 

Return ! 0Track_entry 

I 

' Comms text entry 

Procedure Text_entry !## need to enter with I%= to number of text lines. 
0Show_cmd 
0Cclear_middle 
N%=1 

Ccomtxt2 : 

Mtxt$=" Enter text? (max "+Str$(I%)+" lines) " 

Alert 2,Mtxt$,0," Yes No (BT)",A 
If A=1 

Print At(2,N%+3) ;Str$(N%)+" ; "; 

Form Input 75,Fi$ 

T$=T$+Upper$(Fi$)+" " 

Inc N% 

If N%<I%+1 !## allows only 1% lines of text 

Goto Ccomtxt2 
Endif 
Endif 
Clr A 

T$=T$+"BT" 
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Return 

I 

' allows completion of command string using same menu 

Procedure Partial 

Menu Off !## displays menu bar in "normal" mode 

0Show_cmd 

Do 

On Menu 
Loop 
Return 

I 

■ ############################################################################# 
I 

' COMMAND PROCEDURES 

I 

■ ############################################################################# 

' ASTAB sub-proc 

Procedure Bbearing 
Brng!=False 

Mtxt$=" Bearing & Range FROM... " 

I 

Brng: 

Alert 2 ,Mtxt$ , 0 , "Force Position Track", A 

I 

If A=1 Then 
T$=T$+"FORCE " 

0Shov;_cmd 

Cstr$="Enter Force name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

i 

If A=2 Then 

T$=T$+"POSITION " 

Print At(20,ll) ;Lat_str$; 

0Lat_check 

Print At (20 , 12) ;Long_str$ ; 

0Long_check 

T$=T$+Upper$ (Lat$)+" "+Upper$(Long$) 

Endif 

I 

If A=3 

T$=T$+"TRACK " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

0Track_entry 
Endif 
Clr A 
0Shov;_cmd 
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I 



If Not Brng! !## allows ONE loop in this procedure. 
Mtxt$=" Bearing & Range TO... " 

Brng! =True 
0Cclear_middle 
T$=T$+" " 

Goto Brng 
Endif 

Return 

1 

' ASTAB sub-proc 

Procedure Ccpa 
Cpa!=False 

Mtxt$=" CPA of. . . " 

I 

Cpa : 

Alert 2 ,Mtxt$ , 0 , "Force Track ",A 
1 

If A=1 Then 
T$=T$+"FORCE " 

0Show_cmd 

Cstr$="Enter Force name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

I 

If A=2 

T$=T$+"TRACK " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
0Track_entry 
Endif 
Clr A 

I 

If Not Cpa! !## allows ONE loop in this procedure. 
Mtxt$=" CPA to... " 

Cpa ! =True 
0Show_cmd 
0Cclear_middle 
T$=T$+" " 

Goto Cpa 
Endif 
Return 

' ASTAB sub-proc 

Procedure Cclassify 
0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
0Track_entry 
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I 



0Cclear_middle 

@Show_cmd 

Cstr$="Enter classification: " 

Print At (37-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 
Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Return 



Procedure Ddrop 

Alert 2," DROP track... 



ASTAB sub-proc 
",0,"0ld Range Track # 



II 



,A 



If A=1 Then 
T$=T$+"OLD " 

0Show_cmd 

Cstr$=" (range) ; enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

0Track_entry 

T$=T$+" " 

0Show_cmd 

0Cclear_middle 

Cstr$=" ( thru) ; enter track number: " 

Print At(37“Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 
0Track_entry 
Endif 



If A=2 Then 
T$=T$+"RANGE " 

0Show_cmd 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

T$=T$+" " 

0Show_cmd 

0Cclear_middle 

Cstr$=" (thru) ; enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
0Track_entry 
Endif 



If A=3 

Mtxt$=" Drop a track? " 

Ddrop : 

Alert 2,Mtxt$,0," Yes No",B 
If B=1 

Cstr$="Enter track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 
0Track_entry 

Mtxt$=" Drop another track? " 

0Show_cmd 
T$=T$+" " 
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Goto Ddrop 
Endif 
Endif 
Clr A,B 
Return 



ASTAB sub-proc 



Procedure Pprint 

Alert 2," Print... ",0," ASTAB Plot", A 
If A=1 

T$=T$+"ASTAB " 

Alert 2," Select... ",0, "ASTAB # All",B 
If B=1 

Cstr$="Enter ASTAB number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Lolim%=0 



Hilim%=6 



Numlen%=l 
0Number_entry 
T$=T$+Pnum$ 
Endif 
If B=2 

T$=T$+"ALL" 

Endif 

Endif 



Clr B 



If A=2 

T$=T$+"PLOT " 

Alert 2," Plot... ", 0 , "Interval continue", B 
If B=1 

T$=T$+" INTERVAL " 

0Minute_entry 
Endif 
Endif 
Clr A,B 
Return 



' Graphics sub-proc 

Procedure Ccenter 

Mtxt$=" CENTER ( plot at ... )" 

Alert 2,Ntxt$,0,"FORCE POSITION TRACK", A 
If A=1 Then 
T$=T$+"FORCE" 



Print At(30,8) ;T$; 

Print At (17 , 10) ; "Enter name of force to be centered: " 
Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Endif 

If A=2 Then 



T$=T$+"POSITION" 

Print At(30, 9) , '"Center plot at ..." 
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Print At(20,ll);Lat_str$; 

0Lat_check 

Print At(20 , 12) ;Long_str$ ; 

0Long_check 

T$=T$+" "+Upper$(Lat$)+" "+Upper$(Long$) 

Endif 

If A=3 Then 
T$=T$+"TRACK " 

Cstr$=T$+"at (track number): " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
0Track_entry 
Endif 
Clr A 
Return 

I 

' Graphics sub-proc 

Procedure Rradius 
Print At(35,8);T$ 

Print At (20 , 10) ; "Enter radius of plot (1-9999 nmi): 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

0Number_entry 

T$=T$+Pnum$ 

Return 



Procedure Sshift 
Print At(35,6);T$ 



Graphics sub-proc 



Print At(10 , 8) ; "Enter distance to shift center of plot (1-9999 nmi): " 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

0Number_entry 

T$=T$+Pnum$ 



Print At (15 , 9) ; "Enter direction of shift (0-359 True): 

Lolim%=0 

Hilim%=359 

Numlen%=3 

0Number_entry 

T$=T$+" "+Pnum$ 

Return 



' Graphics sub-proc 

Procedure Llabel 

0Label("" , =^Label_return$) 

If Instr(Label_return$ , "al_lab" )>0 
T$=T$+"ALL" 

Endif 

If Instr (Label_return$ , "large_lab" )>0 



85 



T$=T$+"LARGE" 

Endif 

If Instr (Label_return$ , "small_lab" )>0 
T$=T$+"SMALL" 

Endif 

If Instr (Labe l_return$ , "off_lab" )>0 
T$=T$+"OFF" 

Endif 

Return 

I 

' Label DIOX 

Procedure Label (Preselect$ , Postselect) 

Hidem 

Local 

Sc reen$ , Temp$ , Xm , Ym , Button$ , Radiol_old$ , Radio2_old$ , Radio3_old$ , Radio4_old$ , - 
Radio5_old$ , Radiol_new$ , Radio2_nev;$ , Radio3_new$ , Radio4_new$ , Radio5_new$ , Stat_exi 

Sget Screen$ 

Print At(36,6) ;T$ 

Local All_lab_stat$ , All_lab_stat 
Local Large_lab_stat$ ,Large_lab_stat 
Local Small_lab_stat$ , Small_lab_stat 
Local Off_lab_stat$ ,Off_lab_stat 
0Drawshapes_label 
0All_lab(O) 

0Large_lab(O) 

0Small_lab(O) 

0Off_lab(O) 

Shov;m 

Do 

If Mousek=l 

Mouse Xm,Ym,Void 

0Find_button_label(Xm, Ym,’*=Button$) 

If Button$="al_lab" 

If All_lab_stat 
0All_lab (0) 

Let All_lab_stat=False 
Let All_lab_stat$="" 

Let Stat_exit=False 
Else 

0All_lab(-l) 

Let All_lab_stat=True 
Let All_lab_stat$="al_lab" 

Let Stat_exit=True 
Endif 
Endif 

If Button$="large_lab" 

If Large_lab_stat 
0Large_lab(O) 

Let Large_lab_stat=False 
Let Large_lab_stat$="" 

Let Stat_exit=False 
Else 
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0Large_lab(-l) 

Let Large_lab_stat=True 
Let Large_lab_stat$="large_lab 
Let Stat_exit=True 
Endif 
Endif 

If Button$="small_lab" 

If Small_lab_stat 
0Small_lab(O) 

Let Small_lab_stat=False 
Let Small_lab_stat$="" 

Let Stat_exit=False 
Else 

0Small_lab(-l) 

Let Small_lab_stat=True 
. Let Small_lab_stat$="small_lab 
Let Stat_exit=True 
Endif 
Endif 

If Button$="off_lab" 

If Off_lab_stat 
0Of f_lab (0) 

Let Off_lab_stat=False 
Let Off_lab_stat$="" 

Let Stat_exit=False 
Else 

0Off_lab(-l) 

Let Off_lab_stat=True 
Let Off_lab_stat$="off_lab" 

Let Stat_exit=True 
Endif 
Endif 
Endif 

Exit If False 

Exit If (Button$="al_lab" ) 

Exit If (Button$="large_lab" ) 

Exit If (Button$="small_lab" ) 

Exit If (Button$="off_lab" ) 

Pause 4 
Loop 

If Stat_exit 

Temp$=Temp$+" ( "+All_lab_stat$+" ) " 
Temp$=Temp$+" ( "+Large_lab_stat$+" ) " 
Temp$=Temp$+" ( "+Small_lab_stat$+" ) " 
Temp$=Temp$+" ("+Off_lab_stat$+" ) " 
’*^Postselect=Temp$ 

Endif 

Do 

0F ind_but ton_labe 1 (Xm , Ym , *Bu tton$ ) 
Exit If Stat_exit 
Loop 
Pause 7 
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Sput Screen$ 

Return 

Procedure Drav;shapes_label 
Box 160,86,451,30 



Return 

Procedure All_lab(Selected) 

@Draw_text_in_box( "ALL" , 190 , 74 , 0 , 1 , 6 , 12 , 1 , 2 , Selected) 

Return 

Procedure Large_lab(Selected) 

0Draw_text_in_box( "LARGE" ,251,74,0, 1 , 6 , 4 , 1 , 2 , Selected) 

Return 

Procedure Small_lab(Selected) 

@Draw_text_in_box( "SMALL" , 320 ,74,0,1,6,4,1,2, Selected) 

Return 

Procedure Off_lab(Selected) 

0Draw_text_in_box("OFF" ,397 ,74,0,1,6,12,1 , 2, Selected) 

Return 

Procedure Find_button_label(X_mouse , Y_mouse ,Button_selected) 

If (X_mouse>176) And (X_mouse<228) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="al_lab" 

Goto Found_button_label 
Endif 

If (X_mouse>245) And (X_mouse<297) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="large_lab" 

Goto Found_button_label 
Endif 

If (X_mouse>314) And (X_mouse<366 ) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="small_lab" 

Goto Found_button_label 
Endif 

If (X_mouse>383) And (X_mouse<435) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="off_lab" 

Goto Found_button_label 
Endif 

*Button_selected=" " 

Found_button_label : 

Return 



I 



' Graphics sub-proc 

Procedure Llob 

Mtxt$=" LOB " 

Alert 2,Mtxt$,0,"ALL FORCE OFF", A 
If A=1 Then 
T$=T$+"ALL" 

Endif 

If A=2 Then 
T$=T$+"F0RCE" 

Endif 

If A=3 Then 
T$=T$+"0FF" 

Endif 
Clr A 
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Return 

1 

' Graphics sub-proc 

Procedure Mmark_track 

Mtxt$=" MARK TRACK " 

Alert 2,Mtxt$,0,"ENEMy FRIENDLY NEUTRAL", A 
If A=1 Then 
T$=T$+"ENEMY " 

Endif 

If A=2 Then 

T$=T$+"FRIENDLY " 

Endif 

If A=3 Then 

T$=T$+"NEUTRAL " 

Endif 

Tl$=" "+T$ 

Clr A 

I 

Alert 2,T1$,0,"AIR SUB SURFACE", A 
If A=1 Then 
T$=T$+"AIR " 

Endif 

If A=2 Then 
T$=T$+"SUB " 

Endif 

If A=3 Then 

T$=T$+"SURFACE " 

Endif 

Cstr$=T$+" (at position...)" 

Print At (40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Inc Ytext% 

Print At (27 ,Ytext%) ; "Enter unit's latitude; " ; 

@Lat_check 
Inc Ytext% 

Print At(27 ,Ytext%) ; "Enter unit's longitude: " ; 

@Long_check 

T$=T$+Upper$ (Lat$ )+" "+Upper$ (Long$ ) 

Inc Ytext% 

Print At (23 ,Ytext%) ; "Choose name for this track: " ; 

Form Input 5,Fi$ 

Inc Ytext% 

Print At(17 , Ytext%) ;"Choose second name for this track (optional) 
Form Input 5,Mtk_name2$ 

T$=T$+" "+Upper$(Fi$)+" "+Upper$(Mtk_name2$) 

Clr A 
Return 

I 

' Graphics sub-proc 

Procedure Mmark_bearing 
Print At(35,Ytext%) ;T$ 

Inc Ytext% 
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Inc Ytext% 

Print At (25 , 10) ; "Choose name for this bearing: 
Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

Inc Ytext% 

0Bearing_entry 

Return 



' Graphics sub-proc 

Procedure Uunmark_track 
Print At(30,8);T$ 

Print At(15,10) ;"Enter (first) name of track to unmark 
Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 

I 

' Graphics sub-proc 

Procedure Pplace 

Mtxt$=" PLACE " 

Alert 2,Mtxt$,0,"XMARK CIRCLE GRID", A 
If A=1 Then 
T$=T$+"XMARK " 

Endif 

If A=2 Then 

T$=T$+"CIRCLE " 

Endif 

If A=3 Then 
T$=T$+"GRID " 

Endif 
Clr A 

I 

Mtxt$=" "+T$+" on " 

Alert 2,Mtxt$,0,"FORCE POSITION TRACK", A 
If A=1 Then 
T$=T$+"F0RCE " 

Endif 

If A=2 Then 

T$=T$+"POSITION " 

Endif 

If A=3 Then 
T$=T$+"TRACK " 

Endif 
Clr A 
Return 

I 

' Graphics sub-proc 

Procedure Ppim 

Mtxt$=" PIM " 

Alert 2, Mtxt$,0, "DEFINE ADD CHANGE", A 
If A=1 Then 
T$=T$+"DEFINE" 

Endif 
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If A=2 Then 
T$=T$+"ADD" 
Endif 

If A=3 Then 
T$=T$+" CHANGE" 
Endif 
Clr A 
Return 



' player CONNS sub-proc 

Procedure lintell 

Alert 2," Intelligence report for ..." ,0 , "Blue Orange 
If A=1 Then 
T$=T$+"BLUE" 

Endif 

If A=2Then 



T$=T$+" ORANGE" 
Endif 



Clr A 



".A 



Get 0 , 140 , 639 , 162 , Canex_box$ 

Alert 2," Select... ",0,"View Time continue", A 

If A=1 Then 
0Show_cmd 

Cstr$="Enter view number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$)+" " 

I%=20 

0Text_entry 

Endif 

If A=2 Then 
0Time_entry 
I%=20 

0Text_entry 
T$=T$+" " 

Endif 
Clr A 

Put 0 , 140 , Canex_box$ 

Return 



Procedure Nmessage 

Alert 2," Nessage to... 
If A=1 

T$=T$+"BLUE " 

Endif 
If A=2 

T$=T$+"ORANGE " 

Endif 
Clr A 



player CONNS sub-proc 
",0,"Blue Orange ",A 
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0Show_cmd 

Cstr$="Enter view number: " 

Print At(37-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 
Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

I%=8 

0Text_entry 

Return 



' Umpire sub-proc 

Procedure Ppause 

Mtxt$=" PAUSE Pause: game pauses. " 

Mtxt$=Mtxt$+"Lock : on stations. " 
Mtxt$=Mtxt$+"Refresh : of remote db." 

Alert 2,Mtxt$,0,"PAUSE LOCK REFRESH", A 
If A=2 Then 
T$=T$+"LOCK " 

Endif 

If A=3 Then 

T$=T$+"REFRESH " 

Endif 
Clr A 
Return 

I 

' Umpire sub-proc 

Procedure Eend 

Mtxt$=" END End: ends game. " 

Mtxt$=Mtxt$+"No : no auto logout. " 

Mtxt$=Mtxt$+"Yes : with auto logout." 

Alert 2,Mtxt$,0,"END NO YES", A 
If A=2 Then 
T$=T$+"NO " 

Endif 

If A=3 Then 
T$=T$+"YES " 

Endif 
Clr A 
Return 



Umpire sub-proc 



Procedure Ccopy 

0Copy ( " " , *Copy_return$) 

If Instr(Copy_return$, "all_cop")>0 
T$=T$+"ALL" 

Endif 

If Instr (Copy_return$ , "blue_cop" )>0 
T$=T$+"BLUE" 

Endif 

If Instr (Copy_return$ , "orange_cop" )>0 
T$=T$+"ORANGE" 



Endif 

If Instr (Copy_return$ , "off_cop")>0 
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T$=T$+"OFF" 

Endif 
Re turn 

I 

' Copy DIOX 

Procedure Copy (Preselect$ , Postselect) 

Hidem 

Local 

Screen$ ,Temp$ ,Xm, Ym,Button$ ,Radiol_old$ ,Radio2_old$ ,Radio3_old$ ,Radio4_old$ , - 
Radio5_old$ , Radiol_new$ , Radio2_new$ , Radio3_new$ , Radio4_new$ , Radio5_new$ , S ta t_exi 

Sget Screen$ 

Print At(38,6) ;T$ 

Local All_cop_stat$ ,All_cop_stat 
Local Blue_cop_stat$ ,Blue_cop_stat 
Local Orange_cop_stat$ ,Orange_cop_stat 
Local Off_cop_stat$ ,Off_cop_stat 
@Drawshapes_copy 
@All_cop(0) 

0Blue_cop(O) 

0Orange_cop(O) 

0Off_cop(O) 

Showm 

Do 

If Mousek=l 

Mouse Xm,Ym,Void 

0F ind_but ton_copy (Xm , Ym , *Button$ ) 

If Button$="all_cop" 

If All_cop_stat 
0All_cop(O) 

Let All_cop_stat=False 
Let All_cop_stat$="" 

Let Stat_exit=False 
Else 

0All_cop(-l) 

Let All_cop_stat=True 
Let All_cop_stat$="all_cop" 

Let Stat_exit=True 
Endif 
Endif 

If Button$="blue_cop" 

If Blue_cop_stat 
0Blue_cop(O) 

Let Blue_cop_stat=False 
Let Blue_cop_stat$="" 

Let Stat_exit=False 
Else 

0Blue_cop(-l) 

Let Blue_cop_stat=True 

Let Blue_cop_stat$="blue_cop" 

Let Stat_exit=True 
Endif 
Endif 
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If Button$="orange_cop" 

If Orange_cop_stat 
@0range_cop(0) 

Let Orange_cop_stat=False 
Let Orange_cop_stat$="" 

Let Stat_exit=False 
Else 

@Orange_cop(-l ) 

Let Orange_cop_stat=True 
Let Orange_cop_stat$="orange_cop" 
Let Stat_exit=True 
Endif 
Endif 

If Button$="off_cop" 

If Off_cop_stat 
@0ff_cop(0) 

Let Off_cop_stat=False 
Let Off_cop_stat$="" 

Let Stat_exit=False 
Else 

@Off_cop(-l ) 

Let Off_cop_stat=True 
Let Off_cop_stat$="off_cop" 

Let Stat_exit=True 
Endif 
Endif 
Endif 

Exit If False 

Exit If (Button$="all_cop" ) 

Exit If (Button$="blue_cop" ) 

Exit If (Button$="orange_cop" ) 

Exit If (Button$="off_cop" ) 

Pause 4 
Loop 

If Stat_exit 

Temp$=Temp$+" ("+All_cop_stat$+" ) " 
Temp$=Temp$+" ( "+Blue_cop_stat$+" ) " 
Temp$=Temp$+" ("+Orange_cop_stat$+" ) " 
Temp$=Temp$+" ("+Off_cop_stat$+" ) " 
*Postselect=Temp$ 

Endif 

Do 

@F ind_but ton_copy (Xm , Ym , *But ton$ ) 

Exit If Stat_exit 
Loop 
Pause 7 
Sput Screen$ 

Return 

Procedure Drawshapes_copy 
Box 149,86,471,30 
Return 

Procedure All_cop(Selected) 
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@Draw_text_in_box( "ALL" , 183 ,74,0,1,6,16,1,2, Selected) 

Return 

Procedure Blue_cop (Selected) 

@Draw_text_in_box( "BLUE" ,256,74,0,1,6,12,1,2, Selected) 

Return 

Procedure Orange_cop (Selected) 

@Draw_text_in_box ( "ORANGE" ,324 ,74,0,1,6,4,1,2, Selected) 

Return 

Procedure Off_cop(Selected) 

@Drav;_text_in_box("OFF" ,413,74,0,1,6,16,1, 2 , Selected) 

Return 

Procedure Find_button_copy(X_mouse ,Y_mouse ,Button_selected) 

If (X_mouse>165) And (X_mouse<225 ) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="all_cop" 

Goto Found_button_copy 
Endif ■ 

If (X_mouse>242) And (X_mouse<302) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="blue_cop" 

Goto Found_button_copy 
Endif 

If (X_mouse>318) And (X_mouse<378) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="orange_cop" 

Goto Found_button_copy 
Endif 

If (X_mouse>395) And (X_mouse<455) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="off_cop" 

Goto Found_button_copy 
Endif 

=^Button_selected=" " 

Found_button_copy : 

Return 

I 

' Umpire sub-proc 

Procedure Rrelocate 
Print At(35 ,8) ;T$ 

Print At(20 , 10) ; "Enter name of unit to be relocated: " ; 

Form Input 5,Fi$ 

I 

Print At(20,ll) ;Lat_str$; 

@Lat_check 

I 

Print At(20 , 12) ;Long_str$ ; 

@Long_check 

1 

T$=T$+Upper$(Fi$)+" "+Upper$(Lat$)+" "+Upper$(Long$) 

Mtxt$="RELOCATE relative to another unit?" 

Alert 2,Mtxt$,0," YES NO", A 
If A=1 Then 

Print At (20, 14) ; "Relative to which unit? " ; 

Form Input 5,Fi$ 

T$=T$+" RELATIVE "+Upper$(Fi$) 

Endif 



95 



I 



Clr A 
Return 

I 

' Umpire sub-proc 

Procedure Ttime 
Print At(37 ,8) ;T$ 

Print At(15,10) ;"Enter time of game minute (10-400 seconds): 

Lolim%=10 

Hilim%=400 

Numlen%=3 

0Number_entry 

T$=T$+Pnum$ 

Return 

I 

' Umpire sub-proc 

Procedure Sset 

Mtxt$=" SET Fast: no output until... " 

Mtxt$=Mtxt$+"Normal : continuous messages. " 

Mtxt$=Mtxt$+"Zulu : time change." 

Alert 2,Mtxt$,0,"FAST NORMAL ZULU", A 
If A=1 Then 
T$=T$+"FAST " 

0Sset_fast 

Endif 

If A=2 Then 

T$=T$+"N0RMAL " 

Endif 

If A=3 Then 
TS=T$+"ZULU " 

0Sset_zulu 
Endif 
Clr A 
Return 

I 

' Umpire sub-proc 

Procedure Sset_fast 
Print At(33,8);T$ 

Print At(12 , 10) ; "Enter game minute when output should start (1-999) 

Lolim%=l 

Hilim%=999 

Numlen%=3 

0Number_entry 

T$=T$+Pnum$ 

Return 

' Umpire sub-proc 

Procedure Sset_zulu 

Mtxt$=" SET ZULU " 

Alert 2,Mtxt$,0," AHEAD BACK ",A 
If A=1 Then 
T$=T$+"AHEAD " 
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II 



Else 

T$=T$+"BACK 
Endif 
Print At(30,8);T$ 

I 

Print At(25 , 10) ; "Enter hours (0-23): !## hour entry 

Lolim%=0 

Hilim%=23 

Numlen%=2 

0Mumber_entry 

T$=T$+Pnum$ 

I 

Print At (25 , 11 ); "Enter minutes (0-59): "; !## minute entry 

Lolim%=0 

Hilim%=59 

Numlen%=2 

0Number_entry 

T$=T$+" "+Pnum$ 

I 

Clr A 
Return 

I 

' Umpire sub-proc 

Procedure Enable_disable 
0F_check 

Print At(30,ytext%) ;T$ 

I 

If Instr(T$," DISABLE ") 

0Minute_entry 
T$=T$+" " 

Endif 

I 

Print At(25 ,Ytext%+2) ; "Enter equipment name*. 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 

I 

' Umpire sub-proc 

Procedure Expend_replenish 
0F_check 

Print At(30,8) ;T$ 

Print At (25 , 10) ; "Enter amount (number): "; 

Lolim%=l 
Hilim%=999 
Numlen%=3 
0Number_entry 
T$=T$+Pnum$+" " 

I 

Print At (25 , 11 ); "Enter equipment name: " ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 
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########### Second level Procedures for FORCE menu 'A' items ############# 



' Maneuvers sub-proc 

Procedure Ccourse 

Print At(33 , Ytext%) ;T$ 

Ytext%=Ytext%+2 
0Course_entry 
Inc Ytext% 

Mtxt$=" Enter Course change... " !## for alert box text 

Alert 2,Mtxt$,l,"N0W LATER ",A 
If A=2 Then 
0Time_entry 
Endif 

I 

Clr A 
Return 

I 

' Maneuvers sub-proc 

Procedure Sspeed 

Print At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 
0Speed_entry 
Inc Ytext% 

I 

Mtxt$=" Enter Speed change... " !## for alert box text 

Alert 2,Mtxt$,l,"N0W LATER ",A 
If A=2 Then 
0Time_entry 
Endif 
Clr A 
Return 

I 

' Maneuvers sub-proc 

Procedure Pproceed 

Alert 2," "+T$+" ..." ,0 , "COURSE POSITION", A 
Print At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 

I 

If A=1 

0Course_entry 
0Distance_entry 
Endif 
If A=2 

Print At(23 ,Ytext%) ;Lat_str$ ; 

0Lat_check 
Inc Ytext% 

Print At(23 ,Ytext%) ;Long_str$ ; 

0Long_check 
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Inc Ytext% 

T$=T$+Upper$(Lat$)+" "+Upper$(Long$) 

Endif 
Clr A 

I 

Alert 2," select ... ", 3, "SPEED TIME continue", A 

I 

If A=1 

0Speed_entry 

0Tc_choice 

Endif 

I 

If A=2 

0Time_entry 

Endif 

I 

Clr A 
Return 

I 

' Maneuvers sub-proc 

Procedure Sstation 

Print At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 

0Bearing_entry 

Print At (33, Ytext%+1) ; "FROM (guide) ..." 

Ytext%=Crslin 

Print At(22 ,Ytext%) ; "Enter name of addressee (unit): " ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

0Distance_entry 

0Tc_choice 

Return 

I 

' Maneuvers sub-proc 

Procedure Ssearch 
0Show_cmd 

Print At (28 , Ytext%) ; "Enter name of plan: " ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

0Tc_choice 

Return 

I 

' Maneuvers sub-proc 

Procedure Uuse 

Print At(33,Ytext%) ;T$ 

Inc Ytext% 

Inc Ytext% 

Print At(28,Ytext%) , '"Enter name of plan: " ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 
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I 



0Use_time_choice 

Return 

I 

' Maneuvers sub-proc 

Procedure Eexecute 

Print At(33,ytext%) ;T$ 

Inc Ytext% 

Inc Ytext% 

Print At(22,Ytext%) ;"Enter name of contingency plan: " ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

@Tc_choice 

Return 

I 

' Sensors sub-proc 

' Activate/Silence sub-sub procedure 

' Note: Activate & Silence have own menus. 

I 

Procedure Remitter 
@Show_cmd 

Alert 2," select ... ",3,"TIME <name> continue", A 

If A=1 

@Time_entry 
Endif 
If A=2 

Print At(27 ,Ytext%) , '"Enter name of emitter: " 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Endif 
Clr A 
Return 

I 

' Activate/Silence sub-sub procedure 

Procedure Ssurvsat 
@Show_cmd 

Mtxt$=" "+T$+" " 

I 

Print At (25 ,Ytext%) ; "Enter name of Survsat: 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Inc Ytext% 

Print At (28 , Ytext%) ; "Enter force name: 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

I 

@Cclear_middle 

@Show_cmd 

Alert 2, Mtxt$,0, "ORBITAL STATNARY",A 
If A=1 

T$=T$+" ORBITAL " 
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0Show_cmd 

Cstr$="From latitude*. " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

0Lat_check 

T$=T$*i-Upper$(Lat$) 

Cstr$=Cstr$+Upper$(Lat$)+" To latitude: " 
Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 
0Lat_check 

T$=T$+" "+Upper$(Lat$) 

Endif 

If A=2 

T$=T$+" STATIONARY" 

0Show_cmd 
0Time_entry 
Endif . 

Clr A 
Return 



' Sensors sub-proc 

Procedure Jjam 
0Shov;_cmd 

Print At(28,Ytext%) .-"Enter radar name: " ; 

Form Input 5,Fi$ 

X$=T$+" "+Upper$(Fi$) 

Return 

I 

' Sensors sub-proc 

Procedure Ccease 

Cstr$="Cease jamming radar" 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Inc Ytext% 

Alert 2," select ... ",3,"TINE name continue", A 

If A=1 

0Time_entry 
Endif 
If A=2 

Print At(27 ,Ytext%) ;"Enter name of radar: " ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Endif 
Clr A 
Return 

I 

' Sensors sub-proc 

Procedure Eemcon 
0Show_cmd 

Print At (28 , Ytext%) ; "Enter plan name: "; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 
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I 



Mtxt$=" EXEMPT any units? " 

Emc : 

0Cclear_middle 

Alert 2,Mtxt$,0," Yes No", A 
If A=1 

T$=T$+" EXEMPT" 

Cstr$="EXEMPT which unit?: " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Mtxt$=" EXEMPT more units? " 

0Show_cmd 
Goto Emc 
Endif 

I 

Clr A 
Return 

I 

' Engage sub-proc 

Procedure Ffire 
0Show_cmd 

Print At(19 ,Ytext%) ; "Enter number of weapons to fire (1-99): " ; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

0Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

I 

Print At(15 , Ytext%) ;"Enter name of weapon; TLAM, MK48, HRPOM, etc 
Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$)+" " 

Ytext%=Crslin 

I 

0Cclear_middle 

0Show_cmd 

Mtxt$=" "+T$+" " 

Alert 2, Mtxt$,0, "NUCLEAR CRUISE TORPEDO", A 
If A=1 

T$=T$+"NUCLEAR " 

0Show_cmd 

Mtxt$=Htxt$+"NUCLEAR " 

Alert 2, Mtxt$,0, "CRUISE TORPEDO", B 
Endif 

I 

If A=2 Or B=1 
T$=T$+"CRUISE " 

0Show_cmd 

Mtxt$=Mtxt$+"CRUISE missiles " 

Alert 2,Mtxt$,0,"AT BEARING", C 

I 
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If C=1 

T$=T$+"AT " 

Cstr$="at which shorebase? " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

0Show_cmd 

Endif 

I 

If C=2 

T$=T$+"BEARING " 

Ytext%=Ytext%+2 

0Bearing_entry 

0Show_cmd 

Mtxt$=Mtxt$+" BEARING "+Pnum$ 

Alert 2,Mtxt$,0," DELAY RANGE ",D 
0Cclear_middle 

I 

If D=1 

T$=T$+" DELAY " 

Cstr$="delay . . . " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

0Minute_entry 

0Shov;_cmd 

Endif 

1 

If D=2 

T$=T$+" RANGE" 

Cstr$="range ..." 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Ytext%=Ytext%+2 
0Distance_entry 
0Show_cmd 
Endif 
Endif 
Endif 

I 

If A=3 Or B=2 

T$=T$+"TORPEDOES " 

0Show_cmd 

Cstr$="at track number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
0Track_entry 
Ytext%=Crslin 
Endif 

Clr A,B,C,D 
0Cclear_middle 
Return 



Procedure Llaunch 



Engage sub-proc 
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Mtxt$=" "+T$ 

Alert 2,Mtxt$+"... ",0, "NUCLEAR CRUISE aircraft", A 

If A=1 

T$=T$+"NUCLEAR " 

A=2 

Endif 

I 

If A=2 

T$=T$+"CRUISE " 

@Show_cmd 

Cstr$="Enter number of missiles to fire (1-99): " 
Print At(40-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

0Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Cstr$="Enter name of missile: " 

Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$)+" " 

0Cclear_middle 

0Shov;_cmd 

0Cruise_menu 

Lcl: !## used to return from Cruise_menu_read 

Ytext%=8 

I 

If Bar$(Menu(0))=" BOL" 

T$=T$+"BOL BEARING " 

0Shov;_cmd 
0Bearing_entry 
T$=T$+" RANGE" 

Cstr2$="seeker on..." 

0Cclear_middle 

0Show_cmd 

Ytext%=8 

Print At (40-Int(Len(Cstr2$)/2) ,Ytext%) ;Cstr2$ 

Ytext%=Ytext%+2 

0Distance_entry 

T$=T$+" RANGE" 

Cstr2$="seeker off..." 

0Cclear_middle 

0Show_cmd 

Ytext%=8 

Print At(40-Int(Len(Cstr2$)/2) ,Ytext%) ;Cstr2$ 
Ytext%=Ytext%+2 
0Distance_entry 
Endif 

I 

If Bar$(Menu(0))=" PL2" 

T$=T$+"PL2 POSITION " 
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@Llaunch_entry 

Endif 

I 

If Bar$(Menu(0) )=" PL3" 

T$=T$+"PL3 POSITION " 

@Llaunch_entry 

Endif 

I 

If Bar$(Menu(0))=" PLTWO" 

T$=T$+"PLTWO POSITION " 

@Llaunch_entry 

Endif 

I 

If Bar$(Menu(0))=" PLTHREE " 

T$=T$+"PLTHREE POSITION " 

@Llaunch_entry 

Endif 

I 

If Bar$(Menu(0))=" TEAM" 

T$=T$+"TLAM AT " 

Cstr$="at which shorebase? " 

@L 1 aun c h_e n t ry_l 
@Llaunch_entry_2 
Endif 
Endif 

I 

If A=3 

@Ac_launch 

Endif 

I 

Clr A 
@Shov;_cmd 
@Force_menu_a 
Return 

I 

' ENGAGE sub- sub proc 

Procedure Llaunch_entry 
@Show_cmd 
Cstr$="position. . 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Inc Ytext% 

Print At(23 , Ytext%) ;Lat_str$ ; 

@Lat_check 
Inc Ytext% 

Print At(23,Ytext%) ;Long_str$; 

@Long_check 
Inc Ytext% 

T$=T$+Upper$(Lat$)+" "+Upper$(Long$)+" " 

@Show_cmd 
@Cclear_middle 
Cstr$="Orientation : " 
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Print At(40-Int (Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc ytext% 

Inc Ytext% 

0Bearing_entry 

I 

0Show_cmd 

0Cclear_middle 

Cstr$=Cstr$+Pnum$+" Semimajor axis: " 
Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc Ytext% 

Inc Ytext% 

0Distance_entry 



0Show_cmd 

0Cclear_middle 

Cstr$=Cstr$+Pnum$+" Semiminor axis: " 
Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc Ytext% 

Inc Ytext% 

0Distance_entry 



0Show_cmd 

0Cclear_middle 

Cstr$=Cstr$+Pnum$ 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
0Llaunch_entry_2 
Return 



' ENGAGE sub- sub proc 

Procedure Llaunch_entry_l 
0Cclear_middle 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

0Show_cmd 

0Cclear_middle 

Return 



' ENGAGE sub- sub proc 

Procedure Llaunch_entry_2 

Alert 2," Waypoints desired? ",2," Yes No", A 
N%=0 



If A=1 

0Cclear_middle 

Ytext%=4 !## higher on screen than normal to allow many waypoints 
Waypt : 

Inc N% 

Inc Ytext% 

Print At (35 ,Ytext%) ; "Waypoint ";N% 

Inc Ytext% 

Print At (23 , Ytext%) ;Lat_str$ ; 

0Lat_check 
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Inc Ytext% 

Print At (23 , Ytext%) ;Long_str$ ; 

@Long_check 
Inc Ytext% 

Mtxt$=" WAYPOINT "+Str$(N%)+" "+Upper$ (Lat$)+" "+Upper$ (Long$) 
T$=T$+Mtxt$ 

Dec Ytext% 

Dec Ytext% 

Print At(20,Ytext%) ;Spc(40) 

Inc Ytext% 

Print At(20,Ytext%) ;Spc(40) 

Dec Ytext% 

Dec Ytext% 

Print At(30 ,Ytext%) ;Mtxt$ 

Alert 2," Another waypoint? ",2," Yes No",B 
If B=1 

Goto Waypt 
Endif 
Endif 
Clr A,B 
Return 

' Take sub-menu 

Procedure Ttake 
Mtxt$=" "+T$ 

Alert 2,Ntxt$+"... ",0, "track # Base", A 

If A=1 

0Shov;_cmd 

Cstr$="Enter track number (ie, AB1234): " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

0Track_entry 

Endif 

I 

If A=2 

T$=T$+"BASE " 

0Shov;_cmd 

Cstr$="Base name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

I 

0Show_cmd 
Mtxt$=" "+T$ 

Alert 2,Ntxt$+" using. 0 , "NUCLEAR CONVENTL either", B 
If B=1 

T$=T$+" NUCLEAR" 

Endif 
If B=2 

T$=T$+" CONVENTIONAL" 

Endif 
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@Cclear_middle 
@Tc_choice 
Clr A,B 

@Cclear_middle 

Return 

I 

' ########### Second level Procedures for FORCE menu 'B' items ############# 

I 

' AIRCRFT sub-menu 

Procedure Ac_launch 
Menu Kill 

Aclaunch!=True !## Set when Launch sequence is called; used to allow 
' !## individual use of Load & Mission procs & A/C Command menu. 

0Show_cmd 

Cstr$="How many aircraft? " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 

Hilim%=99 

Numlen%=2 

@Number_entry 

T$=T$+Pnum$ 

I 

@Show_cmd 
@Cclear_middle 
Cstr$="Type of aircraft? " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

I 

@Show_cmd 
@Cclear_middle 
Cstr$="Event name? " 

Print At(37-Int (Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$)+" " 

I 

0Show_cmd 

Alert 2," Collective name...",0," Yes No", A 
If A=1 

0Cclear_middle 
Cstr$="Collective name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

0Show_cmd 

Alert 2," select ... ",0," LEADER MEMBER", B 

If B=1 

T$=T$+" LEADER " 

A=2 

Endif 
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If B=2 

T$=T$+" MEMBER" 
Inc Ytext% 
0Tc_choice 
Endif 
Endif 

I 

If A=2 

0Cclear_middle 
Inc Ytext% 
0Course_entry 
0Speed_entry 
T$=T$+" " 
0Altitude_entry 
Endif 

I 

Clr A,B 



0Shov;_cmd 

0Ac_load 

Return 



AIRCRFT sub-menu item 



Procedure Ac_load 
0Cclear_middle 

If Aclaunch! !## ensures 'LOAD' occurs only once in T$ 
Cstr$=" LOAD" 

Endif 

N%=0 !## set item counter 

Acload: 

Mtxt$="Enter the equipment LOAD (up to 8 items)." 
Alert 2," "+Mtxt$,0," LOAD End Load" , A 
If A=1 

Mtxt$="LOAD how many of this item? (1-99): " 

Print At(39-Int(Len(Mtxt$)/2) , Ytext%) ;Mtxt$ ; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

0Number_entry 

Cstr$=Cstr$+" "+Pnum$ 

I 



Mtxt$=" 

Print At(37-Int(Len(Mtxt$)/2) ,Ytext%) ;Mtxt$; 
Mtxt$="LOAD "+Pnum$+" (name of item?); " 
Print At(37-Int(Len(Mtxt$)/2) ,Ytext%) ;Mtxt$; 
Form Input 5,Fi$ 

Cstr$=Cstr$+" "+Upper$(Fi$) 

Mtxt$=" 

Print At(37-Int(Len(Mtxt$)/2) ,Ytext%) ;Mtxt$; 
Dec Ytext% 

Dec Ytext% 

Print At(40-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 
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Inc Ytext% 

Inc Ytext% 

Inc N% 

If N%<8 !## allows only 8 different items 

Goto Acload 
Endif 
Endif 

I 

T$=T$+Cstr$+" " !## Cstr$ is the Load command string 

0Show_cmd 

Clr A 

I 

If Aclaunch! ! is True if Launch sequence is being used. 

0Mission_menu 

Endif 

Return !0Ac_load 

I 

' AIRCRFT sub-menu item 

Procedure Aalert 
0Show_cmd 
N%=1 

Cstr$="Status for what aircraft type? " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

I 

Aalert : 

0Cclear_middle 
0Show_cmd 
If N%=1 

Cstr$="How many at 5 minute alert? " 

Endif 
If N%=2 

Cstr$="How many at 15 minute alert? " 

Endif 
If N%=3 

Cstr$="How many at 30 minute alert? " 

Endif 

I 

Inc N% 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 
Hilim%=99 
Numlen%=2 
0Number_entry 
T$=T$+" "+Pnum$ 

If N%<4 

Goto Aalert 
Endif 

I 

Ordnance... ",2," Yes No", A 



Alert 2," 
If A=1 
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II 



Cstr$="Enter ordnance (max 24 text characters): 

Print At(32-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Form Input 24,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Endif 
Clr A 
Return 

I 

' AIRCRFT sub-menu item 

Procedure Hhandover 
0Show_cmd 

Cstr$="Flight name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

0Cclear_middle 

0Show_cmd 

Cstr$="To... (force name): " 

Print At (37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

Return 

I 

' AIRCRFT sub-menu item 

Procedure Oorbit 
0Show_cmd 

Cstr$="Enter radius (1-9999 nmi) : " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=l 
Hilim%=9999 
Numlen%=4 
0Number_entry 
T$=T$+" "+Pnum$ 

I 

For N%=1 To 2 
0Cclear_middle 
0Show_cmd 

Cstr$="Position "+str$(N%)+" : " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Print At(23,Ytext%) ;Lat_str$; 

0Lat_check 

I 

Inc Ytext% 

Print At(23 , Ytext%) ;Long_str$ ; 

0Long_check 

I 

T$=T$+" "+Upper$(Lat$)+" "+Upper$ (Long$) 

Ytext%=Ytext%-2 
Next N% 

I 

0Cclear_middle 
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@Show_cmd 

Alert 2 ," select ... ", 3, "SPEED TIME continue", A 

I 

If A=1 

T$=T$+" SPEED" 

0Speed_entry 

0Tc_choice 

Endif 

I 

If A=2 

0Time_entry 

Endif 

I 

Clr A 
Return 

I 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Aattach 
0Shov;_cmd 

Cstr$="...to collective flight (name?): " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+" "+Upper$(Fi$) 

I 

0Show_cmd 

Alert 2," select ... ",0," LEADER MEMBER", A 

I 

If A=1 

T$=T$+" LEADER" 

Endif 

I 

If A=2 

T$=T$+" MEMBER" 

Endif 

I 

0Cclear_middle 
0Tc_choice 
Clr A 
Return 

J 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Bbarrier 
0Show_cmd 

Cstr$="From position..." 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Inc Ytext% 

Print At(23,Ytext%);Lat_str$; 

0Lat_check 

I 

Inc Ytext% 

Print At(23 , Ytext%) ;Long_str$ ; 
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@Long_check 

I 

T$=T$+" "+Upper$(Lat$)+" "+Upper$ (Long$)+" " 

I 

@Cclear_middle 
@Show_cmd 
@Bearing_entry 
Inc Ytext% 

@Distance_entry 

I 

@Cclear_middle 
@Show_cmd 
Cstr$="Using? " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+i' "+Upper$(Fi$) 

I 

@Cclear_middle 
0Show_cmd 
Cstr$="Spacing? " 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

Inc Ytext% 

@Distance_entry 

I 

Inc Ytext% 

@Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Cchaff 
@Show_cmd 
Cstr$="Barrier" 

Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc Ytext% 

0Minute_entry 

I 

Inc Ytext% 

0Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Ccover 
0Show_cmd 

Cstr$="Which track number? " 

Print At (37-Int (Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

0Track_entry 

I 

0Shov;_cmd 

Alert 2," select ... ", 3 , "DISTANCE TIME continue", A 

I 

If A=1 
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Inc Ytext% 

0Distance_entry 

0Tc_choice 

Endif 

I 

If A=2 

0Time_entry 

Endif 

Clr A 
Return 

I 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Ddeploy 
0Show_cmd 

Alert 2," select ... ",0," BUOY WIRE", A 

I 

If A=1 

T$=T$+"BUOY " 

0Show_cmd 

Cstr$="Buoy name: " 

Print At(37-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

If A=2 

T$=T$+"WIRE" 

0Shov;_cmd 

0Time_entry 

Endif 

Clr A 
Return 



' AIRCRFT Fit Cmds sub-menu item 

Procedure Rreconn 
0Show_cmd 
Mtxt$=" "+T$ 

Alert 2,Mtxt$+"... ",0, "track # Base", A 

If A=I 

Cstr$="Enter track number (ie, AB1234) : " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

0Track_entry 

Endif 

If A=2 

T$=T$+"BASE " 

0Show_cmd 

Cstr$="Base name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 
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T$=T$+Upper$(Fi$) 

0Show_cmd 
0Time_entry 
Endif 
Clr A 
Return 

I 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Rrefuel 
0Show_cmd 

Cstr$="Refueler name: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

0Show_cmd 

0Time_entry 

Return 

' AIRCRFT Fit Cmds sub-menu item 

Procedure Tturn 
0Show_cmd 
0Course_entry 
0Show_cmd 
0Time_entry 
Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Aair 
0Show_cmd 

Cstr$="REPORT Air tracks every..." 

Print At(3S-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

0Hinute_entry 
Inc Ytext% 

0Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Eesm 
0Show_cmd 

Cstr$="REPORT ESM tracks every..." 

Print At(38-Int (Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

0Minute_entry 
Inc Ytext% 

0Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Oon 
0Show_cmd 

Cstr$="REPORT On circuit number" 

Cstr2$=Cstr$+" : " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr2$; 
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Lolim%=l 

Hilim%=9999 

Numlen%=4 

0I'Iumber_entry 

T$=T$+Pnum$ 

0Shov;_cmd 

J 

Cstr$="REPORT On circuit number "+Pnum$+" or ; " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=l 
Hilim%=9999 
Numlen%=4 
0Number_entry 
T$=T$+" "+Pnum$ 

0Show_cmd 

I 

Alert 2," Violate EMCON? ",0," Yes No", A 
If A=1 

T$=T$+" YES" 

Endif 
If A=2 

T$=T$+" NO" 

Endif 
Clr A 

I 

Inc Ytext% 

0Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Pposition 
0Shov;_cmd 

Cstr$="REPORT Position & logistics every..." 

Print At(41-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

0Minute_entry 
Inc Ytext% 

0Tc_choice 

Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Ssurface 
0Show_cmd 

Cstr$="REPORT Surface tracks every..." 

Print At(41-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

0Minute_entry 

Return 

I 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Tttime 
0Show_cmd 

Print At(26 ,Ytext%) ; "Enter start minute (1-999): "; 

Lolim%=l 
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Hilim%=999 
Numlen%=3 
0Number_entry 
T$=T$+"TIME "+Pnum$ 

Return 

' AIRCRFT Fit Cmds REPORT sub-menu item 

Procedure Uusing 
0Show_cmd 

Cstr$="REPORT Using what policy? ; " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Inc Ytext% 

0Tc_choice 

Return 

I 

' COMMS sub-menu item 

Procedure Ccommtext 
0Shov;_cmd 

Cstr$="Using what path?: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

I 

0Shov;_cmd 

0Cclear_middle 

Cstr$="To which receiver? : " 

Print At(37-Int(Len(Cstr$)/2) , Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

1 

Ccomtxt : 

0Show_cmd 

0Cclear_middle 

Alert 2," Another receiver? ",0," Yes No", A 
If A=1 Then 

Cstr$="Enter receiver name. " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$)+" " 

Goto Ccomtxt 
Endif 
Clr A 
I%=8 

0Text_entry !## common Comms text entry 
Return 

' COMMS sub-menu item 

Procedure Eembark 
0Show_cmd 

Cstr$="Enter force name: " 
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Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

I 

0Show_cmd 

Alert 2," On what platform? ",0," Orange Blue continue", A 
If A=1 Then 

T$=T$+" ORANGE " 

Endif 

If A=2 Then 
T$=T$+" BLUE " 

Endif 
Clr A 

I 

0Show_cmd 

0Cclear_middle 

Cstr$="Enter view number: " 

Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ ; 

Form Input 5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 

I 

' END of Program 
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APPENDIX B 



RESA Interface Program User^ s Guide 

This appendix is a simple guide to facilitate use of the 
RESA Interface Program (RIP) . To effectively use this guide ^ 
some familiarity with RESA is necessary, as no attempt to 
define RESA commands is made herein. 

The starting screen display will provide the Main Menu, 
one of the three primary control menus. The other two are: 
Force Menu A and Force Menu B. Access to each primary menu 
is available from each other primary menu using the "new 
Menu" menu bar selection. 

Hain :^> ASTAB GRAPHICS CQhHS [tfIPIRE 

FORCE Henu A fianeuvers | sensors | engagements 
FORCE henu B aircraft | submarines 1 force comms 



! CftNCEL connand 



EXECUTE connand 
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Orders are "built" by successively selecting menu 
headings and using the "mouse" to select desired commands. 



As commands are selected, the RIP may ask for additional data 
or second-level commands. Appropriate secondary /tertiary 
menus will be displayed as needed. 



Weapons:;) TIGHT 



Air 

Surface 

Subnarine 

All 

Enefiy 

M’Am 



CANCEL connand 



FOR KITTV 



FOR KITTV WEAPONS FREE CONUEHTIOHAL 



EXECUTE conn^nd | 
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Make a specific choice from the screen or a secondary 
menu, or to use the keyboard to enter alpha-numeric 
characters. Considerable error-checking is performed if the 
keyboard is used. 

Force A:0 new Henu FOR xxx HAHEUUERS SENSORS ENGAGE 



FOR KITTV PROCEED 



Enter course (0-359* True): 234 
Enter distance or range (1-9999 nfii)i 5678 
Enter speed (1-9999 kts): 888 



CANCEL connand 


FOR KITTV 


1 EXECUTE connand 


FOR KITTV PROCEED 234 5678 888 
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If a command is supposed to be preceded by a force 



addressee, an "alert box" will appear and request it. 



Force BO new Henu FOR xxx miiHiillB SUBHRIHE CQHHS 





This connand requires 
an addressee (unit). 

nn 




CANCEL connand 


EXECUTE connand 
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As they are being built, orders are displayed in a 

command box at the bottom of the screen. When an order is 
syntactically correct, the user is given the choice to 
Execute or Cancel it. Execution or Cancellation of non- 
completed orders is not allowed. 

Hain« ne« Henu ASTAB GRAPHICS COMHS IfllPlRE 




CANCEL connand 

1 1 




EiiECUTE cormAnd 
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The following are examples of what commands are displayed 



whenever certain menu bar headings are selected. 



I. MAIN Menu Selections 



Hain ^ 



new Henu KMlfl GRAPHICS 




corns UMPIRE 






CANCEL connand 



EXECUTE confiand 



Main 0 new Henu ftSTAB CQHHS UMPIRE 

Plot 

Erase 

Center 

Radius 

Shift 

Label 

LOB 




Hark track 
Hark bearing 
Unnark track 
Unnark bearing 
Place 
Cancel 
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Plot new Henu ■UlilflH 




Rll 

Blue 

Orange 

Own 

Boundaries 

Chaff 

LOB 

Regions 

Rivers 

Sonobuog 

Speed 

Survsat 

PIH 

Track 

Station 




CANCEL connand 


\ EXECUTE connand | 


1 



Hain new Henu ASTAB GRl^PHICS Wtmwm UhPIRE 



Inforn 

Intell 

Hessage 






CANCEL connand 



EXECUTE connand 



MMH 



125 



Hain new henu ASTAB GRAPHICS COhMS MWimm 







Go 

Pause 

End 

Cods 

Relocate 

Save 

Title 

Set 

Enable 

Disable 

Expend 

Replenish 












CDHCEL connand 




1 EXECUTE connand 


r 






J 
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II. FORCE Menu A Selections 



Force new Menu 


mm 


XXX 




HAHEUyERS SENSORS ENGAGE 




Select unit 








CllNCEL connand 



EXECUTE connand 
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Force A^> new Menu FOR xxx SENSORS ENGAGE 



Course 
Speed 
Proceed 
Station 
Search 
USE (plan} 
Execute (plan) 
Enter Orders 
Pending Orders 
Cancel 







Force A^O new henu FOR xxx HANEUUERS Bma ENGAGE 



Activate 
Silence 
Blip on 
Blip off 
DECH on 
DECH off 
R60C on 
RBOC off 
Jan 
Cease 
Encon 






CANCEL connand 



EXECUTE connand 
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Force new Menu FOR xxx hftNEUOERS SENSORS 







CANCEL connand 




EXECUTE connand 




Cruise ^ node 







WAVPOINT 1 12S 134E 



CANCEL connand 




FOR KITTV 



EXECUTE connand 



FOR KITTV LAUNCH CRUISE 2 REETS TLAH AT RETRO 
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III. FORCE Menu B Selections 



Force ne« Henu FOR xxx miiHiiUM SUBHRINE COHHS 





Launch 

Flight Cttds 

Alert 

Close 

Handover 

Open 

Orbit 

Recall 

Recover 










CUNCEL connand | 


EXECUTE conrtjnd 


1 
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Force BO new Menu FOR xxx MlilHHiM SUBhRINE COMMS 





LOAD 12 HRPOH 






yj Enter the equipnent LOAD 
M (up to 8 itens), 

LOAD ^ End Load 




' CANCEL connand 


1 Fol KITTV 

1 


EXECUTE connand 


IfOR KITTV launch 12 F14fl TEAL 345 450 20008 | 


Fit CndO 


D - R S - Z 





Activate 

Altitude 

Attach 

Barrier 

Bingo 

Cease 

Chaff 

Course 

Cover 






CANCEL connand 



FOR KITTY 



EXECUTE connand 



131 



Force new Menu FOR xxx ftIRCRFT miliilliHM COMHS 



Depth 

Surface 

Periscope 

Fire 

Mode 

Mast 

Deploy 

Retrieve 



It 




Force new Menu FOR xxx AIRCRFT SUBMRIHE TOlillW 



Cohfitext 

Efibark 

Report 

Circuit 



! CANCEL connand 



EXECUTE ccnnand 
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